-- @Author: 作者QQ381990860
-- @Date:   2022-09-06 16:40:23
-- @Last Modified by:   作者QQ381990860
-- @Last Modified time: 2022-09-19 20:07:13
-- @Author: 作者QQ381990860
-- @Date:   2022-09-06 16:40:23
-- @Last Modified by:   作者QQ381990860
-- @Last Modified time: 2022-09-13 16:38:40
-- @Author: 作者QQ2308873645
-- @Date:   2022-05-07 14:23:06
-- @Last Modified by:   作者QQ381990860
-- @Last Modified time: 2022-09-12 13:32:24

local 事件解析 = class()
local format = string.format
local insert = table.insert
local wb,xx
local 玩家数据 = 玩家数据

function 事件解析:对话栏(事件,名称,id,地图1,序号)
    ----------------------------------------------------------------------------------------------------图鉴对话
  local user = 玩家数据[id]
if 玩家数据[id].角色.图鉴提交~=nil then
     local 编号=0
     for n=1,#玩家数据[id].召唤兽.数据 do
       if 玩家数据[id].召唤兽.数据[n].名称==事件 and 玩家数据[id].召唤兽.数据[n].模型==玩家数据[id].角色.图鉴提交.名称 then
          编号=n
          break
        end
    end
  if 编号~=0 then
       if user.图鉴==nil then
             user.图鉴={东海湾={大海龟=false,巨蛙=false,海毛虫=false}
                    ,江南野外={树怪=false,野猪=false}
                    ,大雁塔={赌徒=false,强盗=false,骷髅怪=false,羊头怪=false,蛤蟆精=false,狐狸精=false,花妖=false,大蝙蝠=false}
                    ,大唐国境={赌徒=false,强盗=false,山贼=false}
                    ,大唐境外={老虎=false,黑熊=false,花妖=false}
                    ,魔王寨={牛妖=false,蛤蟆精=false}
                    ,普陀山={黑熊精=false}
                    ,盘丝岭={蜘蛛精=false,狐狸精=false,花妖=false}
                    ,狮驼岭={雷鸟人=false,蝴蝶仙子=false}
                    ,西牛贺州={小龙女=false,狼=false}
                    ,花果山={小龙女=false,老虎=false,黑熊=false}
                    ,海底迷宫={虾兵=false,蟹将=false,龟丞相=false}
                    ,地狱迷宫={野鬼=false,骷髅怪=false,僵尸=false,牛头=false,马面=false}
                    ,北俱芦洲={古代瑞兽=false,白熊=false,天将=false}
                    ,龙窟={古代瑞兽=false,黑山老妖=false,天兵=false,风伯=false,蛟龙=false,雨师=false,地狱战神=false,巡游天神=false,星灵仙子=false}
                    ,凤巢={黑山老妖=false,天将=false,天兵=false,雷鸟人=false,地狱战神=false,风伯=false,凤凰=false,如意仙子=false,芙蓉仙子=false}
                    ,无名鬼蜮={幽灵=false,吸血鬼=false,鬼将=false}
                    ,小西天={夜罗刹=false,炎魔神=false,噬天虎=false}
                    ,小雷音寺={大力金刚=false,雾中仙=false,灵鹤=false}
                    }
       end
       local 地图=玩家数据[id].角色.图鉴提交.地图
       local 名称=玩家数据[id].角色.图鉴提交.名称
       if user.图鉴[地图].激活~=nil then
          常规提示(id,"#Y当前图鉴已激活无需重复提交")
          return
         elseif user.图鉴[地图][名称] then
          常规提示(id,"#Y当前图鉴已提交无需重复提交")
          return
         elseif 玩家数据[id].召唤兽.数据.参战 == 编号 then
           常规提示(id,"#Y参战宝宝无法进行图鉴收集")
        else
          user.图鉴[地图][名称]=true
          玩家数据[id].角色.图鉴提交=nil
          table.remove(玩家数据[id].召唤兽.数据,编号)
          发送数据(玩家数据[id].连接id,3002,玩家数据[id].召唤兽:获取数据())
          常规提示(id,"#Y恭喜你成功收集了"..地图..名称)
          发送数据(玩家数据[id].连接id,3530,user.图鉴)
          return
       end
    else
      常规提示(数字id,"#Y当前召唤兽模型与图鉴所需不匹配额")
      玩家数据[id].角色.图鉴提交=nil
      return
  end
  end
--------------------------------------------------------------------------------------------------------图鉴
    if 事件 == "确认脱离门派" and (地图1 == 1043 or 地图1 == 1252 or 地图1 == 1257 or 地图1 == 1251  or 地图1 == 1054 or 地图1 == 1117 or 地图1 == 1137 or 地图1 == 1124 or 地图1 == 1112 or 地图1 == 1145 or 地图1 == 1141 or 地图1 == 1147 or 地图1 == 1134 or 地图1 == 1144 or 地图1 == 1150 or 地图1 == 1154 or 地图1 == 1156 or 地图1 == 1143 ) then
        角色处理类:脱离门派(玩家数据[id])
        角色处理类:刷新装备属性(玩家数据[id])

    elseif LinkTaskEvent1[事件] then--给予道具
        if 角色处理类:GetTaskID(玩家数据[id],LinkTaskEvent1[事件]) == 0  then
            发送数据(玩家数据[id].连接id,7,"你还没有领取"..LinkTaskEvent1[事件].."任务")
        else
           发送数据(玩家数据[id].连接id,3011,{名称=LinkTaskEvent1[事件] ,id=角色处理类:GetTaskID(玩家数据[id],LinkTaskEvent1[事件]),道具=道具处理类:索要道具1(id,"包裹")})
        end
    elseif LinkTaskEvent2[事件] then --打听消息
        if 角色处理类:GetTaskID(玩家数据[id],LinkTaskEvent2[事件]) == 0  then
            发送数据(玩家数据[id].连接id,7,"你还没有领取"..LinkTaskEvent2[事件].."任务")
        else
            local  TempTaskID = 角色处理类:GetTaskID(玩家数据[id],LinkTaskEvent2[事件])
            local   TempType =LinkTaskEvent2[事件]
            local   course ="进程"..任务数据[TempTaskID].进程
            if LinkTask[TempType][course][5] then
                发送数据(玩家数据[id].连接id,20,{玩家数据[id].角色.造型,玩家数据[id].角色.名称,LinkTask[TempType][course][5]})
            end
                任务控制类:FulfilLinkTask(id, 角色处理类:GetTaskID(玩家数据[id],TempType))
        end

    elseif LinkTaskEvent3[事件] then --开始挑战
        if 角色处理类:GetTaskID(玩家数据[id],LinkTaskEvent3[事件]) == 0  then
            发送数据(玩家数据[id].连接id,7,"你还没有领取"..LinkTaskEvent3[事件].."任务")
        else
            任务控制类:LinkTask战斗处理类(id, 角色处理类:GetTaskID(玩家数据[id],LinkTaskEvent3[事件]))
        end
    elseif 事件 == "我来完成任务链" and 角色处理类:GetTaskID(玩家数据[id],"任务链") ~= 0  then
      local taskid=角色处理类:GetTaskID(玩家数据[id],"任务链")
        if 任务数据[taskid].地图名称~= 玩家数据[id].地图 then
            封禁账号(玩家数据[id],"任务链")
        else
            if 任务数据[taskid].分类==1 then
                任务控制类:完成任务链(id,taskid)
            elseif 任务数据[taskid].分类==2 then
                发送数据(玩家数据[id].连接id,3011,{id=taskid,名称=名称,道具=道具处理类:索要道具2(id,"包裹")})
            elseif 任务数据[taskid].分类==3 then
                local 符合召唤兽id=0
                for n=1,#玩家数据[id].召唤兽.数据 do
                    if 玩家数据[id].召唤兽.数据[n].造型==任务数据[taskid].召唤兽  then
                        符合召唤兽id=n
                        break
                    end
                end
                    if 符合召唤兽id==0 then
                        发送数据(玩家数据[id].连接id,7,"#y/你身上没有我所需要的召唤兽")
                        return 0
                    else
                        玩家数据[id].召唤兽.数据.参战=0
                        table.remove(玩家数据[id].召唤兽.数据,符合召唤兽id)
                        任务控制类:完成任务链(id,taskid)
                    end
            elseif 任务数据[taskid].分类==4 then
                战斗准备类:进入处理(id,100013,"66",taskid)
            end
        end
        -----------------------------------------------------------------------------------------------------
        elseif 事件 == "我想要攻宠" then
        发送数据(玩家数据[id].连接id,20,{NpcData[9999999].模型,NpcData[9999999].名称,
    "#w/攻宠共有两种类型，（光照一只打）和（一刀要你命）当你想了解时，请点击#g/“攻宠介绍”#w/内查看。",{"攻宠介绍","确认了眼神-光照攻宠妈咪妈咪哄","确认了眼神-要你命攻宠妈咪妈咪哄","我在考虑考虑"}
})

    elseif 事件 == "我想要法宠" then
        发送数据(玩家数据[id].连接id,20,{NpcData[9999999].模型,NpcData[9999999].名称,
    "#w/当你想了解法宠时，请点击#g/“法宠介绍”#w/内查看。",{"法宠介绍","确定了眼神-光照法宠妈咪妈咪哄","我在考虑考虑"}
})

    elseif 事件 == "法宠介绍" then
        发送数据(玩家数据[id].连接id,20,{NpcData[9999999].模型,NpcData[9999999].名称,
    "#小东/【所带技能】#w/须弥真言，灵能激发，高级法术连击，高级魔之心，高级法术暴击，高级法术波动，高级神佑复生，光照万象，水漫金山，地狱烈火，八凶法阵，龙魂，浮云神马，叱咤风云，流沙轻音，天降灵葫，食指大动，逍遥游，北冥之渊，扶摇万里，溜之大吉，万物之灵（木），欣欣向荣，出其不意。"
})
    elseif 事件 == "攻宠介绍" then
        发送数据(玩家数据[id].连接id,20,{NpcData[9999999].模型,NpcData[9999999].名称,
    "#小东/【类型】#w/攻宠共有两种类型（光照一只打）和（一刀要你命）。\n#小东/【所带技能】：\n#r/（光照一只打）#w/逍遥游，水击三千，风起龙游，欣欣向荣，津津有味，哼哼哈兮，净台妙谛，高级进击必杀，高级遗志，溜之大吉，昼伏夜出，光照万象，大快朵颐，浮云神马，惊心一剑，剑荡四方，从天而降，高级必杀，高级敏捷，高级神佑复生，高级偷袭，高级吸血，进阶力劈华山，进阶善恶有报。\n#r/（一刀要你命）#w/逍遥游，水击三千，风起龙游，欣欣向荣，力大无穷（木），津津有味，净台妙谛，高级独行，高级进击必杀，高级遗志，溜之大吉，凭风借力，昼伏夜出，大快朵颐，浮云神马，嗜血追击，苍鸾怒击，从天而降，高级必杀，高级敏捷，高级神佑复生，高级偷袭，高级吸血，高级幸运。"
})
    elseif 事件 == "我在考虑考虑" then
        发送数据(玩家数据[id].连接id,20,{NpcData[9999999].模型,NpcData[9999999].名称,
    "#Y/考虑清楚后在自行选择，右键可直接关闭本次对话，如随意点击，选择后GM将不负责更换，且行且珍惜。"
})


    elseif 事件 == "确认了眼神-光照攻宠妈咪妈咪哄" then
        if #玩家数据[id].召唤兽.数据 >= 玩家数据[id].召唤兽.数据.召唤兽上限 then
       发送数据(玩家数据[id].连接id, 7, "#y/你当前可携带的召唤兽已达上限，无法召唤更多的赞助神兽")
       return 0
       else
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"赞助宝宝召唤书"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/赞助宝宝召唤书#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"赞助宝宝召唤书")
        end
        local 临时资质={攻资=3000 ,体资=6000 ,法资=3600 ,防资=3000 ,速资=3000 ,躲资=3000,成长=2.5}
        玩家数据[id].召唤兽:创建召唤兽("暗黑童子","神兽",临时资质,0,{"逍遥游","水击三千","风起龙游","欣欣向荣","津津有味","哼哼哈兮","净台妙谛","高级进击必杀","高级遗志","溜之大吉","昼伏夜出","光照万象","大快朵颐","浮云神马","惊心一剑","剑荡四方","从天而降","高级必杀","高级敏捷","高级神佑复生","高级偷袭","高级吸血","进阶力劈华山","进阶善恶有报"})
        发送数据(玩家数据[id].连接id,7, "#y/你获得了一只24技能神兽攻宠。")
        角色处理类:添加消费日志(玩家数据[id],"购买了赞助宝宝【24技能光照攻宠】")


    elseif 事件 == "确认了眼神-要你命攻宠妈咪妈咪哄" then
        if #玩家数据[id].召唤兽.数据 >= 玩家数据[id].召唤兽.数据.召唤兽上限 then
       发送数据(玩家数据[id].连接id, 7, "#y/你当前可携带的召唤兽已达上限，无法召唤更多的赞助神兽")
       return 0
       else
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"赞助宝宝召唤书"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/赞助宝宝召唤书#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"赞助宝宝召唤书")
        end
        local 临时资质={攻资=3000 ,体资=6000 ,法资=3600 ,防资=3000 ,速资=3000 ,躲资=3000,成长=2.5}
        玩家数据[id].召唤兽:创建召唤兽("暗黑童子","神兽",临时资质,0,{"逍遥游","水击三千","风起龙游","欣欣向荣","力大无穷（木）","津津有味","净台妙谛","高级独行","高级进击必杀","高级遗志","溜之大吉","凭风借力","昼伏夜出","大快朵颐","浮云神马","嗜血追击","苍鸾怒击","从天而降","高级必杀","高级敏捷","高级神佑复生","高级偷袭","高级吸血","高级幸运"})
        发送数据(玩家数据[id].连接id,7, "#y/你获得了一只24技能神兽攻宠。")
        角色处理类:添加消费日志(玩家数据[id],"购买了赞助宝宝【24技能要你命攻宠】")

    elseif 事件 == "确定了眼神-光照法宠妈咪妈咪哄" then
        if #玩家数据[id].召唤兽.数据 >= 玩家数据[id].召唤兽.数据.召唤兽上限 then
       发送数据(玩家数据[id].连接id, 7, "#y/你当前可携带的召唤兽已达上限，无法召唤更多的赞助神兽")
       return 0
       else
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"赞助宝宝召唤书"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/赞助宝宝召唤书#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"赞助宝宝召唤书")
        end
            local 临时资质={攻资=3000 ,体资=6000 ,法资=3600 ,防资=3000 ,速资=3000 ,躲资=3000,成长=2.5}
            玩家数据[id].召唤兽:创建召唤兽("暗黑童子","神兽",临时资质,0,{"须弥真言","灵能激发","高级法术连击","高级魔之心","高级法术暴击","高级法术波动","高级神佑复生","光照万象","水漫金山","地狱烈火","八凶法阵","龙魂","浮云神马","叱咤风云","流沙轻音","天降灵葫","食指大动","逍遥游","北冥之渊","扶摇万里","溜之大吉","万物之灵（木）","欣欣向荣","出其不意"})
            发送数据(玩家数据[id].连接id,7, "#y/你获得了一只24技能神兽法宠。")
            角色处理类:添加消费日志(玩家数据[id],"购买了赞助宝宝【24技能光照法宠】")

    elseif 事件 == "24技能血宠" then
            local 临时资质={攻资=3000 ,体资=6000 ,法资=3600 ,防资=3000 ,速资=3000 ,躲资=3000,成长=2.5}
                    玩家数据[id].召唤兽:创建召唤兽("暗黑童子","神兽",临时资质,0,{"高级连击","高级防御","高级吸血","高级偷袭","高级法术波动","泰山压顶","魔之心","法术连击","高级法术暴击","必杀","夜战","奔雷咒","地狱烈火","力劈华山","善恶有报","防御","吸血","连击","独行","高级驱鬼","遗志","夜舞倾城","月光","神迹"})
                    发送数据(玩家数据[id].连接id,7, "#y/你获得了一只24技能神兽血宠。")
            角色处理类:添加消费日志(玩家数据[id],"购买了赞助宝宝【24技能血宠】")
         ------------------------------------------------------
          elseif 事件 == "我要选择宝宝装备属性" then--首冲装备置换凭证
        发送数据(玩家数据[id].连接id,20,{NpcData[2222222].模型,NpcData[2222222].名称,
    "#w/本礼包可以自行选择你需要的宝宝装备属性，请选择需要携带的宝宝类型。",{"物理宝宝","法术宝宝","我在考虑考虑"}
})

    elseif 事件 == "物理宝宝" then
        发送数据(玩家数据[id].连接id,20,{NpcData[2222222].模型,NpcData[2222222].名称,
    "#w/物理宝宝携带属性均为 #g/100 #w/请最终确认。",{"确认物理","我在考虑考虑"}
})

    elseif 事件 == "法术宝宝" then
        发送数据(玩家数据[id].连接id,20,{NpcData[2222222].模型,NpcData[2222222].名称,
    "#w/法术宝宝携带属性均为 #g/100 #w/请最终确认。",{"确认法术","我在考虑考虑"}
})

    elseif 事件 == "确认物理" then
        if 角色处理类:取可用格子数量(玩家数据[id],"包裹") < 3 then
        发送数据(user.连接id, 7, "#y/请先预留出3个道具空间")
        return 0
            end
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"赞助宝宝装备凭证"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#y/你身上并没有 #g/赞助宝宝装备凭证 #y/它去哪了？")
            return
        end
          道具处理类:RemoveItems(user,sz[1],"赞助宝宝装备凭证")
         -- (id,等级,类型,主属性,主数值,附加类型,附加属性,三围)
          装备处理类:定制召唤兽装备(id,75,"铠甲","伤害","100","伤害","100","伤害=100@伤害=100")
          装备处理类:定制召唤兽装备(id,75,"项圈","伤害","100","伤害","100","伤害=100@伤害=100")
          装备处理类:定制召唤兽装备(id,75,"护腕","伤害","100","伤害","100","伤害=100@伤害=100")
          道具处理类:给予道具(user.id,"点化石",nil,"进阶善恶有报")
          道具处理类:给予道具(user.id,"点化石",nil,"进阶善恶有报")
          道具处理类:给予道具(user.id,"点化石",nil,"进阶善恶有报")
     elseif 事件 == "确认法术" then
        if 角色处理类:取可用格子数量(玩家数据[id],"包裹") < 3 then
        发送数据(user.连接id, 7, "#y/请先预留出3个道具空间")
        return 0
            end
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"赞助宝宝装备凭证"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#y/你身上并没有 #g/赞助宝宝装备凭证 #y/它去哪了？")
            return
        end
          道具处理类:RemoveItems(user,sz[1],"赞助宝宝装备凭证")
         -- (id,等级,类型,主属性,主数值,附加类型,附加属性,三围)
          装备处理类:定制召唤兽装备(id,75,"铠甲","法术伤害","100","法术伤害","100","法术伤害=100@法术伤害=100")
          装备处理类:定制召唤兽装备(id,75,"项圈","法术伤害","100","法术伤害","100","法术伤害=100@法术伤害=100")
          装备处理类:定制召唤兽装备(id,75,"护腕","法术伤害","100","法术伤害","100","法术伤害=100@法术伤害=100")
            --------------------------------------------------------------------------
             elseif 事件 == "我想要灵饰包" then--首冲装备置换凭证
      发送数据(玩家数据[id].连接id,20,{NpcData[3333333].模型,NpcData[3333333].名称,
    "#w/请领取你想要的灵饰包吧！祝您游戏愉快！",{"快让我领取灵饰包吧","我在考虑考虑"}
})

      elseif 事件 == "快让我领取灵饰包吧" then--首冲装备置换凭证
       发送数据(玩家数据[id].连接id,20,{NpcData[3333333].模型,NpcData[3333333].名称,
    "#w/请选择你想要的属性，选择之后将无法更改！",{"物理系灵饰","法术系灵饰","辅助系灵饰","封印系灵饰","我在考虑考虑"}
})

     elseif 事件 == "物理系灵饰" then--首冲装备置换凭证
        if 角色处理类:取可用格子数量(玩家数据[id],"包裹") < 8 then
        发送数据(user.连接id, 7, "#y/请先预留出8个道具空间")
        return 0
        end
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"首冲装备置换凭证"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/首冲装备置换凭证#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"首冲装备置换凭证")
        装备处理类:取首冲物理灵饰礼包(id,80,nil,true,true)
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")

     elseif 事件 == "法术系灵饰" then--首冲装备置换凭证
        if 角色处理类:取可用格子数量(玩家数据[id],"包裹") < 8 then
        发送数据(user.连接id, 7, "#y/请先预留出8个道具空间")
        return 0
        end
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"首冲装备置换凭证"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/首冲装备置换凭证#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"首冲装备置换凭证")
        装备处理类:取首冲法术灵饰礼包(id,80,nil,true,true)
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")

     elseif 事件 == "辅助系灵饰" then--首冲装备置换凭证
        if 角色处理类:取可用格子数量(玩家数据[id],"包裹") < 8 then
        发送数据(user.连接id, 7, "#y/请先预留出8个道具空间")
        return 0
        end
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"首冲装备置换凭证"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/首冲装备置换凭证#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"首冲装备置换凭证")
        装备处理类:取首冲辅助灵饰礼包(id,80,nil,true,true)
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")

     elseif 事件 == "封印系灵饰" then--首冲装备置换凭证
        if 角色处理类:取可用格子数量(玩家数据[id],"包裹") < 8 then
        发送数据(user.连接id, 7, "#y/请先预留出8个道具空间")
        return 0
        end
        local user=玩家数据[id]
        local sz=道具处理类:寻找道具(user,{"首冲装备置换凭证"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/首冲装备置换凭证#y/哪去了？")
            return
        end
        道具处理类:RemoveItems(user,sz[1],"首冲装备置换凭证")
        装备处理类:取首冲封印灵饰礼包(id,80,nil,true,true)
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        道具处理类:给予道具(id,"钟灵石",10,"自我陶醉")
        -----------------------------------------------------

        elseif  事件 == "我确定一键出售所有物品"  then
     道具处理类:系统仓库一键出售(id)
elseif  事件 == "我确定出售第一页所有兽决"  then
     道具处理类:系统兽决一一键出售(id)
elseif  事件 == "我确定出售第二页所有兽决"  then
     道具处理类:系统兽决二一键出售(id)
elseif  事件 == "我确定出售第三页所有兽决"  then
     道具处理类:系统兽决三一键出售(id)
elseif  事件 == "我确定出售第四页所有兽决"  then
     道具处理类:系统兽决四一键出售(id)
elseif  事件 == "我确定出售第五页所有兽决"  then
     道具处理类:系统兽决五一键出售(id)
elseif  事件 == "我确定出售第六页所有兽决"  then
     道具处理类:系统兽决六一键出售(id)
elseif  事件 == "我确定出售仓库所有物品"  then
     道具处理类:宝石仓库一键出售(id)
elseif  事件 == "我确定出售材料仓库所有物品"  then
     道具处理类:材料仓库一键出售(id)
elseif  事件 == "我确定出售装备仓库一所有物品"  then
     道具处理类:装备仓库一键出售(id)
elseif  事件 == "我确定出售装备仓库二所有物品"  then
     道具处理类:装备仓库二一键出售(id)
elseif  事件 == "我确定出售宠装仓库所有物品"  then
     道具处理类:宠装仓库键出售(id)
elseif  事件 == "我确定出售杂货仓库所有物品"  then
     道具处理类:杂货仓库键出售(id)


    elseif 事件 =="车迟斗法" then
        任务控制类:创建车迟斗法副本(id)

    elseif 事件 == "牛大哥你发彪啊（切入战斗）" and 地图1 == 1512 then
        任务控制类:触发神器任务(id,角色处理类:GetTaskID(玩家数据[id],"神器任务"))
    elseif 事件 == "只好先用拳头说话了（切入战斗）" and 地图1 == 1111 then
        任务控制类:触发神器任务(id,角色处理类:GetTaskID(玩家数据[id],"神器任务"))
    elseif 事件 == "除非你先打败我（切入战斗）" and 地图1 == 1217 then
        任务控制类:触发神器任务(id,角色处理类:GetTaskID(玩家数据[id],"神器任务"))
           elseif 事件 =="我要报道" then
           任务控制类:触发游泳比赛(id)
    elseif 事件 == "领取法宝任务" and 玩家数据[id].法宝  then
        任务控制类:添加法宝任务(id)
        玩家数据[id].法宝 = nil

    elseif 事件 == "生死已看淡不服就是干" then
    local 战斗参数=玩家数据[id].战斗对象
   	if 玩家数据[战斗参数]==nil then
       发送数据(玩家数据[id].连接id,7,"#y/这个玩家不存在或没在线")
       return 0
	elseif 玩家数据[id].角色.pk开关==false then
		发送数据(玩家数据[id].连接id,7,"#y/请先按F4打开pk开关")
		return 0
	elseif 玩家数据[战斗参数].战斗~=0 and 玩家数据[战斗参数].观战模式==false then
		发送数据(玩家数据[id].连接id,7,"#y/对方正在战斗中，请稍后再试")
		return 0
	elseif  玩家数据[战斗参数].地图~=玩家数据[id].地图 then
		发送数据(玩家数据[id].连接id,7,"#y/你与对方不处于同一地图内，无法发动攻击")
		return 0
	elseif os.time()<玩家数据[战斗参数].角色.pk保护 then
		发送数据(玩家数据[id].连接id,7,"#y/对方正处于保护期，无法对其发动攻击")
		return 0
	elseif 玩家数据[id].角色.人气<600 then
		发送数据(玩家数据[id].连接id,7,"#y/你的人气值低于600点，无法发动攻击")
		return 0
    elseif  玩家数据[战斗参数].角色.变身.造型 then
    发送数据(玩家数据[id].连接id,7,"#y/对方处于变身状态,无法强行PK")
    return 0
    else
         if 玩家数据[id].地图==1001 or 玩家数据[id].地图==5131 or 玩家数据[id].地图==1092 then
            发送数据(玩家数据[id].连接id,7,"#y/本地图不允许发起pk战斗")
           return 0
          end
          local 消耗人气=50
          if math.abs(玩家数据[id].角色.等级-玩家数据[战斗参数].角色.等级)>=20 then
            消耗人气=100
          end
          玩家数据[id].角色.人气=玩家数据[id].角色.人气-消耗人气
          发送数据(玩家数据[id].连接id,7,"#y/你消耗了"..消耗人气.."点人气")
          if 玩家数据[战斗参数].战斗~=0 and 玩家数据[战斗参数].观战模式 then --令其退出观战模式
           战斗准备类.战斗盒子[玩家数据[战斗参数].战斗]:退出观战(战斗参数)
           玩家数据[战斗参数].战斗=0
           玩家数据[战斗参数].观战模式=false
           end
         广播消息(9,"#xt/#y/生死看淡，不服就干。#g/"..玩家数据[id].角色.名称.."("..玩家数据[id].id.."）".."#y/对#g/"..玩家数据[玩家数据[id].战斗对象].角色.名称.."("..玩家数据[玩家数据[id].战斗对象].id..")#y/发起了pk战斗")
          角色处理类:添加系统消息(玩家数据[玩家数据[玩家数据[id].战斗对象].id],"#h/"..玩家数据[id].角色.名称.."["..玩家数据[id].id.."]对你发起了pk战斗。")
         战斗准备类:创建战斗(id,200003,战斗参数,0)
    end

    elseif 事件 == "副帮主"and 名称 == "帮派" then
		道具处理类:职务变更(id, "副帮主")
	elseif 事件 == "我同意"and 名称 == "更换队长" then
		if 玩家数据[id].队伍 == 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/请先加入一个队伍")
			return 0
		elseif 玩家数据[id].队长时间 == nil or os.time() - 玩家数据[id].队长时间 >= 60 then
			发送数据(玩家数据[id].连接id, 7, "#y/操作超时")
			return 0
		else
			队伍处理类:新任队长(id)
		end
    elseif 事件 == "我要收养孩子" and 名称 == "马婆婆"then
      local temp =道具处理类:寻找道具(玩家数据[id],{"孤儿名册"})
    if #temp>0 then
        道具处理类:RemoveItems(玩家数据[id],temp[1],"孤儿名册")
        角色处理类:New孩子处理类(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","你的包裹里面没有孤儿手册无法领养孩子"})
    end
     elseif 事件 == "收养高级孩子" and 名称 == "马婆婆"then

        if #玩家数据[id].角色.子女列表 >=5  then
           发送数据(玩家数据[id].连接id, 7, "#y/领取失败,最多领养5个孩子")
            return 0
        end

      local temp =道具处理类:寻找道具(玩家数据[id],{"高级孩子名册"})
    if #temp>0 then
        道具处理类:RemoveItems(玩家数据[id],temp[1],"高级孩子名册")
        角色处理类:New孩子处理类1(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","你的包裹里面没有高级孩子名册无法领养孩子"})
    end
elseif 事件 == "收养孩子王" and 名称 == "马婆婆"then

        if #玩家数据[id].角色.子女列表 >=5  then
           发送数据(玩家数据[id].连接id, 7, "#y/领取失败,最多领养5个孩子")
            return 0
        end

      local temp =道具处理类:寻找道具(玩家数据[id],{"孩子王名册"})
    if #temp>0 then
        道具处理类:RemoveItems(玩家数据[id],temp[1],"孩子王名册")
        角色处理类:New孩子处理类2(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","你的包裹里面没有孩子王名册无法领养孩子"})
    end
    elseif 事件 == "领取逍遥镜" and 名称 == "马婆婆"then
     if 玩家数据[id].角色.子女列表.逍遥镜 then
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","只能免费领取一次逍遥镜"})
     else
        道具处理类:给予道具(id,"逍遥镜")
        玩家数据[id].角色.子女列表.逍遥镜=1
     end
    elseif 事件 == "带我冲上云霄" and (地图1 == 1001) and 名称 == "大雁塔传送使者" then
      发送数据(玩家数据[id].连接id, 15, {"大雁塔","请输入你需要传送的层数,每次消耗1万*层数的银子"})

   elseif 事件 == "我要扫荡大雁塔" and (地图1 == 1001) and 名称 == "大雁塔传送使者" then


       if 玩家数据[id].队伍 == 0 then
          发送数据(玩家数据[id].连接id, 7,"#Y/请组队点击！")
          return
        end


          for n = 1, #队伍数据[玩家数据[id].队伍].队员数据  do
             local 临时id  = 队伍数据[玩家数据[id].队伍].队员数据[n]

           if 是否聚宝盒(临时id) then
             if 玩家数据[临时id].角色.大雁塔 > 0 then
                 for i=1,玩家数据[临时id].角色.大雁塔 do
                   if 活动数据.大雁塔数据[i][临时id] then
                      发送数据(玩家数据[临时id].连接id,20,{"御林军","大雁塔传送使者","你已经完成了当天的扫荡"})
                      break
                   else
                      队伍处理类:完成大雁塔({临时id}, i)
                   end
                 end
             else
             发送数据(玩家数据[临时id].连接id,20,{"御林军","大雁塔传送使者","你当前没有大雁塔记录不能扫荡"})
             end
            else
             发送数据(玩家数据[临时id].连接id,20,{"御林军","大雁塔传送使者","你身上没有聚宝盒"})
          end
         end

    elseif 事件 == "我要炼丹" and 名称 == "八卦炼丹炉"then
          炼丹查看[id] = 1
          if 玩家数据[id].角色.炼丹灵气 == nil then
            玩家数据[id].角色.炼丹灵气 = 0
          end
          发送数据(玩家数据[id].连接id,3077,{时间=炼丹炉.时间,数据=炼丹炉[id],灵气=玩家数据[id].角色.炼丹灵气,物品数据=道具处理类:索要道具1(id,"包裹")})
    elseif 事件 == "买点炼丹材料" and 名称 == "八卦炼丹炉"then
            local 价格 = 1000000
            if 银子检查(id,价格) then
              角色处理类:扣除银子(玩家数据[id],价格,"炼丹材料")
             道具处理类:给予道具(id, "翡翠琵琶")
            else
            发送数据(玩家数据[id].连接id,7,"#Y/你个穷鬼,没有钱还想买炼丹材料啊！")
            end


    elseif 事件 == "兑换特殊魔兽要诀（消耗999神兜兜）" then
      local 找到物品 = false
      local 特赦格子 = 0
      for n = 1, 20 do
      if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "神兜兜" then
      找到物品 = true
      特赦格子=n
          break
      end
      end
      if 找到物品 == false then
          发送数据(玩家数据[id].连接id, 7,"你身上没有神兜兜呀")
      elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 999 then
           发送数据(玩家数据[id].连接id, 7, "你身上神兜兜数量不够")
      else
         道具处理类:RemoveItems(玩家数据[id],特赦格子,"神兜兜",999)
            道具处理类:给予道具(id, "特殊兽决宝盒")
      end
       elseif  地图1 == 1001 and 名称 == "进阶系统" then
        if 事件 == "重生魂兽" then
            发送数据(玩家数据[id].连接id, 1039, 玩家数据[id].召唤兽:获取数据())
        elseif 事件 == "进阶魂兽" then
            发送数据(玩家数据[id].连接id, 1054, 玩家数据[id].召唤兽:获取数据())
        elseif 事件 == "兑换青铜宠物装备" then
            -- if 玩家数据[id].角色.宠物精华< 10 then
            --  发送数据(玩家数据[id].连接id, 7, "#y/领取需要10点宠物精华")
            --  return
            -- end
            -- 玩家数据[id].角色.宠物精华=玩家数据[id].角色.宠物精华-10
            -- 装备处理类:购买召唤兽装备(id,5,"铠甲",1)
            -- 装备处理类:购买召唤兽装备(id,5,"项圈",1)
            -- 装备处理类:购买召唤兽装备(id,5,"护腕",1)
        elseif 事件 == "宠物装备升级" then
            --发送数据(玩家数据[id].连接id,1041,道具处理类:索要道具3(id,"包裹"))
         elseif 事件 == "查询宠物精华" then
           -- 发送数据(玩家数据[id].连接id, 7, "#y/当前宠物精华剩余:"..玩家数据[id].角色.宠物精华.."!")
        end



    elseif 事件 == "我来完成宝宝任务链" and 角色处理类:GetTaskID(玩家数据[id],"宝宝任务链") ~= 0  then
      local  taskid=角色处理类:GetTaskID(玩家数据[id],"宝宝任务链")
        if 任务数据[taskid].地图名称~= 玩家数据[id].地图 then
            封禁账号(玩家数据[id],"宝宝任务链")
         else
             if 任务数据[taskid].分类==1 then
                任务控制类:完成宝宝任务链(id,taskid)
            elseif  任务数据[taskid].分类==2 then
                发送数据(玩家数据[id].连接id,3011,{id=taskid,名称=名称,道具=道具处理类:索要道具2(id,"包裹")})
            elseif  任务数据[taskid].分类==3 then
                        local 符合召唤兽id=0
                        for n=1,#玩家数据[id].召唤兽.数据 do
                            if 玩家数据[id].召唤兽.数据[n].造型==任务数据[taskid].召唤兽 and   玩家数据[id].召唤兽.数据[n].造型==任务数据[taskid].召唤兽 and 玩家数据[id].召唤兽.数据[n].类型=="变异"then
                            符合召唤兽id=n
                            end
                        end
                        if 符合召唤兽id==0 then
                            发送数据(玩家数据[id].连接id,7,"#y/你身上没有我所需要的召唤兽")
                            return 0
                        else
                            玩家数据[id].召唤兽.数据.参战=0
                            table.remove(玩家数据[id].召唤兽.数据,符合召唤兽id)
                            任务控制类:完成宝宝任务链(id,taskid)
                        end
            elseif  任务数据[taskid].分类==4 then
                     战斗准备类:进入处理(id,100013,"66",taskid)
             end
        end
    elseif 事件 == "领取任务（100W银币）" and 地图1 == 1040 and 名称 == "马真人" then
          if 玩家数据[id].角色.等级 < 60 then
          发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","只有等级达到60级的玩家才可帮助朝廷"})
          return 0
        elseif 角色处理类:GetTaskID(玩家数据[id],"宝宝任务链") ~= 0 then
          发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","你已经领取过此任务了"})
          return 0
        elseif 玩家数据[id].队伍 ~= 0 then
          发送数据(玩家数据[id].连接id, 7, "#y/该任务不允许组队领取")
        elseif 银子检查(id, 取角色等级(id) * 取角色等级(id) * 20) == false then
          发送数据(玩家数据[id].连接id, 7, "#y/领取此任务需要消耗" .. 取角色等级(id) * 取角色等级(id) * 20 .. "两银子")
          return 0
        else
          角色处理类:扣除银子(玩家数据[id], 取角色等级(id) * 取角色等级(id) * 20, 2)
          local lsid =tonumber(id .. "187")
          任务数据[lsid] = {
            次数 = 0,
            类型 = "宝宝任务链",
            编号 = 0,
            npc名称 = "马真人",
            npc编号 = 104005,
            结束 = 3600,
            跳过 = 1,
            id = id,
            起始 = os.time(),
            任务id = lsid,
            数字id = 玩家数据[id].id
          }
          任务控制类:设置宝宝任务链(id, lsid)
          玩家数据[id].角色.任务数据[角色处理类:生成任务id(玩家数据[id])] = lsid
                    任务控制类:刷新追踪任务信息(id)
        end
    elseif 事件 == "确认跳过任务" and 地图1 == 1040 and 名称 == "马真人" then
     local taskData =角色处理类:GetTaskID(玩家数据[id],"宝宝任务链")
      if 银子检查(id, 任务数据[taskData].跳过 * 2500000) == false then
      发送数据(玩家数据[id].连接id, 7, "#y/领取此任务需要消耗" .. 任务数据[taskData].跳过 * 2500000 .. "两银子")
    else
      角色处理类:扣除银子(玩家数据[id], 任务数据[taskData].跳过 * 2500000, 2)

      任务数据[taskData].跳过 = 任务数据[taskData].跳过 + 1

      任务控制类:完成宝宝任务链(id, taskData, 1)
    end


    elseif 事件 == "攻击修炼" and 地图1 == 1040 and 名称 == "马真人" then
        玩家数据[id].角色.召唤兽修炼.当前 = "攻击"
        发送数据(玩家数据[id].连接id, 20,{"太白金星","马真人","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.召唤兽修炼.当前 .. "#W/修炼"})
    elseif 事件 == "法术修炼" and 地图1 == 1040 and 名称 == "马真人" then
        玩家数据[id].角色.召唤兽修炼.当前 = "法术"
        发送数据(玩家数据[id].连接id, 20,{"太白金星","马真人","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.召唤兽修炼.当前 .. "#W/修炼"})
    elseif 事件 == "防御修炼" and 地图1 == 1040 and 名称 == "马真人" then
        玩家数据[id].角色.召唤兽修炼.当前 = "防御"
        发送数据(玩家数据[id].连接id, 20,{"太白金星","马真人","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.召唤兽修炼.当前 .. "#W/修炼"})
    elseif 事件 == "法抗修炼" and 地图1 == 1040 and 名称 == "马真人" then
        玩家数据[id].角色.召唤兽修炼.当前 = "法抗"
        发送数据(玩家数据[id].连接id, 20,{"太白金星","马真人","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.召唤兽修炼.当前 .. "#W/修炼"})

    elseif 事件 == "设置修炼类型" and 地图1 == 1040 and 名称 == "马真人" then
        发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","您当前的修炼类型为#G/" .. 玩家数据[id].角色.召唤兽修炼.当前 .. "#W/修炼",{"攻击修炼","法术修炼","防御修炼","法抗修炼"}})
    elseif 事件 == "我要把点数兑换为召唤兽修炼经验" and 地图1 == 1040 and 名称 == "马真人" then
      if 玩家数据[id].角色.召唤兽修炼点数> 0 then
          if 玩家数据[id].角色.召唤兽修炼[玩家数据[id].角色.召唤兽修炼.当前].上限 <= 玩家数据[id].角色.召唤兽修炼[玩家数据[id].角色.召唤兽修炼.当前].等级 then
              发送数据(玩家数据[id].连接id, 7, "#y/你当前的这项修炼等级已达上限，无法再服用修炼果")
              return
          else

              角色处理类:添加召唤兽修炼经验(玩家数据[id],玩家数据[id].角色.召唤兽修炼点数)
              玩家数据[id].角色.召唤兽修炼点数=0
          end
      else
         发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","你当前的点数不足0不能兑换"})
      end
    elseif 事件 == "我要把点数兑换为修炼果" and 地图1 == 1040 and 名称 == "马真人" then
      if 玩家数据[id].角色.召唤兽修炼点数> 150 then
           玩家数据[id].角色.召唤兽修炼点数=玩家数据[id].角色.召唤兽修炼点数-150
           道具处理类:给予道具(id, "修炼果")
      else
         发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","你当前的点数不足150不能兑换"})
      end
    elseif 事件 == "管理修炼点数" and 地图1 == 1040 and 名称 == "马真人" then
        发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","水积不厚，负大舟无力，风积不厚，负大翼无力，少侠想做什么那？目前拥有修炼点数：#G/" .. 玩家数据[id].角色.召唤兽修炼点数 .. "#W/点，少侠可以选择兑换 修炼经验，或者将最多兑换#G/"..math.floor(玩家数据[id].角色.召唤兽修炼点数/150).."#W/个修炼果",{"我要把点数兑换为召唤兽修炼经验","我要把点数兑换为修炼果"}})
    elseif 事件 == "跳过本环（消耗银币）" and 地图1 == 1040 and 名称 == "马真人" then
        if 角色处理类:GetTaskID(玩家数据[id],"宝宝任务链") ~= 0 then
        local wb1="你可以在我这里花费银子跳过任务，根据跳过任务的次数而需要花费一定数量的银子。跳过此任务仍然会获得此任务奖励。您当前需要花费#Y/" .. 任务数据[角色处理类:GetTaskID(玩家数据[id],"宝宝任务链")].跳过 * 2500000 .."#W/两银子，请确认是否跳过此任务："
            发送数据(玩家数据[id].连接id,20,{"太白金星","马真人",wb1,{"确认跳过任务","我在考虑一下"}})
        else
            发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","请先领取任务"})
        end
    elseif 事件 == "取消修炼任务" and 地图1 == 1040 and 名称 == "马真人" then
        if 角色处理类:GetTaskID(玩家数据[id],"宝宝任务链") ~= 0 then
            角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"宝宝任务链"))
            任务数据[角色处理类:GetTaskID(玩家数据[id],"宝宝任务链")] = nil
            发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","你的宝宝任务链取消了"})
        else
            发送数据(玩家数据[id].连接id,20,{"太白金星","马真人","请先领取任务"})
        end

  -- elseif 事件 == "兑换超级鲲鹏（999个灵兜兜）" then
  --     local 找到物品 = false
  --     local 特赦格子 = 0
  --     for n = 1, 20 do
  --     if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "神兜兜" then
  --     找到物品 = true
  --     特赦格子=n
  --         break
  --     end
  --     end
  --     if 找到物品 == false then
  --         发送数据(玩家数据[id].连接id, 7, "#Y/你身上没有灵兜兜呀")
  --     elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 999 then
  --          发送数据(玩家数据[id].连接id, 7, "#Y/你身上神兜兜数量不够")
  --     else
  --          道具处理类:RemoveItems(玩家数据[id],特赦格子,"灵兜兜",999)
  --           道具处理类:给予道具(id, "灵兜兜")
  --     end

  elseif 事件 == "领取寄存丹药" and 名称 == "八卦炼丹炉"then
      if 商品存放[id] == nil then
            发送数据(玩家数据[id].连接id,7,"#Y/这里没有存放你的奖励哟！")
            return
      else
            local 奖励数据 = 商品存放[id]
            if 奖励数据[1] > 0 then
              道具处理类:给予道具(id, "金砂丹",nil,nil,奖励数据[1])
            end
            if 奖励数据[2] > 0 then
              道具处理类:给予道具(id, "银砂丹",nil,nil,奖励数据[2])
            end
            if 奖励数据[3] > 0 then
              道具处理类:给予道具(id, "铜砂丹",nil,nil,奖励数据[3])
            end
             发送数据(玩家数据[id].连接id,7,"#Y/恭喜你在炼丹中中得八卦位！")
            广播消息(string.format("#S(八卦炼丹)#Y恭喜:#G%s#Y在炼丹中获得了:#G%s颗#Y金丹 #G%s颗#Y银丹 #G%s颗#Y铜丹",玩家数据[id].角色.名称,奖励数据[1],奖励数据[2],奖励数据[3]))
            商品存放[id] = nil
        end

    elseif 事件 == "参加黑市拍卖会" and 名称 == "古董商人"then
        发送数据(玩家数据[id].连接id,3075,{玩家数据[id].角色.造型,玩家数据[id].角色.名称})
    elseif 事件 == "卖点古玩换钱花" and 名称 == "古董商人"then
        发送数据(玩家数据[id].连接id,20,{"钱庄老板","古董商人","古董可以直接在背包出售中出售"})
    elseif 事件 == "关于六艺修行" and 名称 == "马婆婆"then
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","可以直接使用六艺技能书对孩子使用"})
    elseif (事件 == "设置孩子成长方向" or 事件 == "重置孩子属性")  and 名称 == "马婆婆"then
        local xx ={}
        for i=1,#玩家数据[id].角色.子女列表 do
            table.insert(xx,i..玩家数据[id].角色.子女列表[i].名称)
        end
        table.insert(xx,"我随便看看")
        local  TempText = 事件 == "设置孩子成长方向" and "成长之路指的是孩子升级以后属性点自动分配的方向，请选择哪个孩子要设置的属性点分配" or "如果你需要重置孩子属性，请先#R设置好成长之路！"
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆",TempText,xx,事件})
    elseif 事件 == "关于门派法术" and 名称 == "马婆婆"then
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","可以直接使用门派技能书对孩子使用"})
    elseif 事件 == "关于孩子进阶" and 名称 == "马婆婆"then
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","子女成长达到1.27使用圣兽丹可以进阶,进阶孩子可以再一次使用圣兽丹可以佩戴饰品"})
    elseif 事件 == "孩子饰品" and 名称 == "马婆婆"then
        发送数据(玩家数据[id].连接id,20,{"老太婆","马婆婆","可以直接对进阶的孩子使用圣兽丹获得饰品"})
	elseif 事件 == "左护法" and 名称 == "帮派"then
		道具处理类:职务变更(id, "左护法")
	elseif 事件 == "右护法" and 名称 == "帮派"then
		道具处理类:职务变更(id, "右护法")
	elseif 事件 == "长老"and 名称 == "帮派" then
		道具处理类:职务变更(id, "长老")
	elseif 事件 == "谁怕谁开打" and 角色处理类:GetTaskID(玩家数据[id],"法宝") ~= 0  then
		战斗准备类:进入处理(id, 100062, "66", 角色处理类:GetTaskID(玩家数据[id],"法宝"))
	elseif 事件 == "帮众"and 名称 == "帮派" then
		道具处理类:职务变更(id, "帮众")

	elseif 事件 == "领取建设任务"and 名称 == "青龙堂总管" then
			if 玩家数据[id].角色.帮派~=nil and 帮派数据[玩家数据[id].角色.帮派]~=nil and 帮派数据[玩家数据[id].角色.帮派].当前内政.名称~="无" then
         if 角色处理类:GetTaskID(玩家数据[id],"帮派青龙")==0  then
               任务控制类:设置青龙任务(id)
         else
             发送数据(玩家数据[id].连接id,20,{"兰虎","青龙堂总管","你已经领取过青龙任务了"})
         end

			else
			发送数据(玩家数据[id].连接id,7,"#y/当前没有可领取的建设任务")
			end
    elseif 事件 == "挑战神器副本（消耗1000W银币）"  and 名称 == "邪神蚩尤" then
        if 银子检查(id,10000000) then
            任务控制类:挑战蚩尤挑战(id)
        else
            发送数据(玩家数据[id].连接id,20,{"蚩尤","蚩尤","走走走!你这个穷光蛋!"})
        end

	elseif 事件 == "上交物品"and 名称 == "青龙堂总管" then
			if 角色处理类:GetTaskID(玩家数据[id],"帮派青龙")==0 then
                发送数据(玩家数据[id].连接id,7,"#y/请先领取帮派建设任务")
			else
                self.发送信息={id=角色处理类:GetTaskID(玩家数据[id],"帮派青龙"),名称="青龙堂总管",道具=道具处理类:索要道具2(id,"包裹")}
                发送数据(玩家数据[id].连接id,3011,self.发送信息)
			end
	elseif 事件 == "取消任务"and 名称 == "青龙堂总管" then
   		if 角色处理类:GetTaskID(玩家数据[id],"帮派青龙") ~= 0 then
			任务数据[角色处理类:GetTaskID(玩家数据[id],"帮派青龙")] = nil
			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"帮派青龙"))
			发送数据(玩家数据[id].连接id,20,{"兰虎","青龙堂总管","你的青龙堂任务已经取消了"})
			帮派数据[玩家数据[id].角色.帮派].成员名单[id].青龙 = 0
		else
			发送数据(玩家数据[id].连接id,20,{"兰虎","青龙堂总管","请先领取任务"})
		end
	elseif 事件 == "学习辅助技能"and 名称 == "帮派师爷" then
		  发送数据(玩家数据[id].连接id,2019,角色处理类:学习技能信息(玩家数据[id],"辅助技能"))
	elseif 事件 == "学习生活技能"and 名称 == "帮派师爷" then
		 发送数据(玩家数据[id].连接id,2019,角色处理类:学习技能信息(玩家数据[id],"辅助技能","你大爷"))
	elseif 事件 == "上交金银宝盒"and 名称 == "白虎堂总管" then
    	发送数据(玩家数据[id].连接id,3011,{id=-701,名称="白虎堂总管",道具=道具处理类:索要道具2(id,"包裹")})
	elseif 事件 == "查看成员信息"and 名称 == "帮派管事" then
		道具处理类:获取帮派信息2(id,玩家数据[id].角色.帮派)
	elseif 事件 == "查看帮派信息"and 名称 == "帮派管事" then
		道具处理类:获取帮派信息1(id,玩家数据[id].角色.帮派)
	elseif 事件 == "更改帮派宗旨"and 名称 == "帮派管事" then
  		发送数据(玩家数据[id].连接id, 15, {"帮派宗旨","请输入你需要修改的帮派宗旨内容"})
     ----------------------------------
      elseif 事件 == "我要参加BOSS活动"and 名称 == "全服BOSS" then
       if 全服BOSS开关 then
          地图处理类:Jump(id,12341,30,30)
        else
         发送数据(玩家数据[id].连接id,20,{"远古魔神","远古魔神","活动还未开始"})
        end
    elseif 事件 == "查看BOSS信息"and 名称 == "远古魔神" then
       if 全服BOSS开关 then
         发送数据(玩家数据[id].连接id,20,{"远古魔神","远古魔神","#YBOSS剩余气血：#R"..math.floor(世界BOSS气血)})
         else
         发送数据(玩家数据[id].连接id,20,{"远古魔神","远古魔神","活动还未开始"})
        end
    elseif 事件 == "查看个人信息" and 名称 == "吆五喝六" then
       local 临时月 =os.date("%Y-%m-%d-%H:%M:%S",os.time())
          if 世界BOSS数据[id]==nil then
            世界BOSS数据[id] = {输出=0,击杀=false,领取=false}
          end

    发送数据(玩家数据[id].连接id,20,{"远古魔神","远古魔神","玩家 #Y/"..玩家数据[id].角色.名称.."(ID"..id..") #W/您当前输出积分为 #Y/" .. 世界BOSS数据[id].输出 .. "#W分，累计输出 #Y/50000 #W/分，即可在活动结束后凭此截图找GM领取参与奖,当前系统时间为 #R/"..临时月 })

    elseif 事件 == "进入战斗"and 名称 == "吆五喝六" then
       if 全服BOSS开关 then

          if 吆五喝六数量 < 30 then
                发送数据(玩家数据[id].连接id, 7, "#y/想跟我打你还不够格#R/(全服击杀30只魔界奇兵将开启吆五喝六BOSS)#Y/当前已击杀#R/"..吆五喝六数量.."#Y/只")
                return
          end

           if 玩家数据[id].队伍 == 0 then
                发送数据(玩家数据[id].连接id, 7, "#y/此活动需要组队进入")
                return
          elseif 取队伍符合等级(id, 69) == false then
               发送数据(玩家数据[id].连接id, 20,{"远古魔神","远古魔神","队伍中有成员等级低于69"})
               return
          elseif 世界BOSS气血 <= 0 then
              发送数据(玩家数据[id].连接id, 7,"#Y/世界BOSS已被击杀")
              return
          end
          if 世界BOSS数据[id]==nil then
            世界BOSS数据[id] = {输出=0,击杀=false,领取=false}
          end
          local  临时id=tonumber(id.."11"..os.time())
          FightGet:进入处理(id,888902,"66",临时id)
       else
         发送数据(玩家数据[id].连接id,20,{"远古魔神","远古魔神","活动还未开始"})
        end
     ----------------------------------

	elseif 事件 == "送我去聚义厅" then
		地图处理类:Jump(id,1875,46,35)
	elseif 事件 == "送我去书院" then
		地图处理类:Jump(id,1825,31,26)
	elseif 事件 == "送我去金库" then
		地图处理类:Jump(id,1815,35,28)
	elseif 事件 == "送我去厢房" then
		地图处理类:Jump(id,1845,30,23)
	elseif 事件 == "送我去兽室" then
		地图处理类:Jump(id,1835,28,24)
	elseif 事件 == "送我去仓库" then
		地图处理类:Jump(id,1865,30,23)
	elseif 事件 == "送我去长安城" then
		地图处理类:Jump(id,1001,419,8)

	elseif 事件 == "领取任务"and 名称 == "玄武堂总管" then
       if 角色处理类:GetTaskID(玩家数据[id],"帮派玄武")~=0 then
       发送数据(玩家数据[id].连接id,7,"#y/你已经领取过玄武堂任务了")
      else
			任务控制类:添加玄武堂任务(id)
       end
    elseif 事件 == "送我进去" and 地图1 == 3131 then
        地图处理类:Jump(id,3132,26,57)
	elseif 事件 == "取消任务"and 名称 == "玄武堂总管" then
   		if 角色处理类:GetTaskID(玩家数据[id],"帮派玄武") ~= 0 then
   			地图处理类:移除单位(任务数据[角色处理类:GetTaskID(玩家数据[id],"帮派玄武")].地图编号,角色处理类:GetTaskID(玩家数据[id],"帮派玄武"))
			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"帮派玄武"))
			发送数据(玩家数据[id].连接id,20,{"兰虎","玄武堂总管","你的玄武堂任务已经取消了"})
		else
			发送数据(玩家数据[id].连接id,20,{"兰虎","玄武堂总管","请先领取任务"})
		end
	elseif 事件 == "修理装备" and 名称 == "装备修理商" then
        发送数据(玩家数据[id].连接id,3019,道具处理类:索要道具3(id,"包裹"))
	elseif 事件 == "我要用千亿经验更换兽决"and 名称 == "李世民" and 地图1 == 1044 then
     if 玩家数据[id].角色.飞升 ~= true then
        发送数据(玩家数据[id].连接id, 7, "#y/飞升玩家才可以兑换")
        return 0
      end
	    if 玩家数据[id].角色.当前经验 >= 100000000000 then
            玩家数据[id].角色.当前经验=玩家数据[id].角色.当前经验-100000000000
            发送数据(玩家数据[id].连接id,7,"#y/当前经验减少100000000000点")
            local cj = ""
            local 奖励参数 = math.random(100)
            if 奖励参数 >=1 and 奖励参数 <=20 then
                道具处理类:给予道具(id, "高级魔兽要诀")
                广播消息("#hd/".."#S/(千亿经验)" .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r高级魔兽要诀")
            elseif 奖励参数 >=21 and 奖励参数 <=31 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "月光")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了特殊魔兽要诀")
            elseif 奖励参数 >=32 and 奖励参数 <=43 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "灵能激发")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=44 and 奖励参数 <=54 then
               道具处理类:给予道具(id,"特殊魔兽要诀",nil, "月光")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r殊魔兽要诀")
            elseif 奖励参数 >=55 and 奖励参数 <=70 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "月光")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=71 and 奖励参数 <=75 then
               道具处理类:给予道具(id,"特殊魔兽要诀",nil, "天降灵葫")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=76 and 奖励参数 <=80 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "出其不意")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=81 and 奖励参数 <=82 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "灵山禅语")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=83 and 奖励参数 <=86 then
                道具处理类:给予道具(id,"高级魔兽要诀",nil, "无畏布施")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=87 and 奖励参数 <=88 then
                道具处理类:给予道具(id,"高级魔兽要诀",nil, "凭风借力")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=89 and 奖励参数 <=98 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "八凶法阵")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            elseif 奖励参数 >=99 and 奖励参数 <=100 then
                道具处理类:给予道具(id,"特殊魔兽要诀",nil, "哼哼哈兮")
                广播消息(9, "#xt/#g/ " .. 玩家数据[id].角色.名称 .. "#y/在长安皇宫李世民处，消耗了千亿经验成功兑换了#r特殊魔兽要诀")
            end
	    else
	       发送数据(玩家数据[id].连接id,20,{"李世民","李世民","少侠你的经验不够呀需要千亿"})
	   end

	elseif 事件 == "我要挑战你"  then
       local  JumpPlies= 1
      if  地图1 == 1004 then
           JumpPlies =1
      elseif  地图1 == 1005 then
            JumpPlies =2
      elseif  地图1 == 1006 then
        JumpPlies =3
      elseif  地图1 == 1007 then
        JumpPlies =4
      elseif  地图1 == 1008 then
        JumpPlies =5
      elseif  地图1 == 1090 then
        JumpPlies =6
      -- elseif  地图1 == 1009 then
      --   JumpPlies =7
      elseif 地图1 >= 7000 and  地图1<=7092 then
         JumpPlies = 地图1-6992
      end

      任务控制类:挑战大雁塔(id,JumpPlies)

      elseif 事件 == "我要挑战你大雁塔"  then
    local 检查通过 =""
     if 玩家数据[id].队伍 ~= 0 then
            for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
                if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.活跃度 < 100  then
                    检查通过 =检查通过..玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称.."、"
                end
            end
      elseif 玩家数据[id].角色.活跃度 < 100 then
             发送数据(玩家数据[id].连接id,20,{"红萼仙子","七层守卫","你的活跃度不足100"})
             return
      end
      if 检查通过~= "" then
          发送数据(玩家数据[id].连接id,20,{"红萼仙子","七层守卫","队员："..检查通过.."活跃度不足100点无法进行挑战"})
      else
            if 玩家数据[id].队伍 ~= 0 then
                  for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
                      角色处理类:扣除活跃度(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],100)
                  end
            else
                   角色处理类:扣除活跃度(玩家数据[id],100)
            end
          if  地图1 == 1009 then
              JumpPlies =7
          end
         任务控制类:挑战大雁塔(id,JumpPlies)
      end



	elseif 事件 == "什么是化境" and 地图1 ==1114  and 名称 == "吴刚" then
			 发送数据(玩家数据[id].连接id,20,{"大生","吴刚","万物变化，虚而不屈，相生相克，无穷无尽，欲强者先弱，欲扬者先抑，欲刚者先柔，欲取者先与，欲升者先降，欲张者先合。入与化境之后会变的暂时弱些，但是不久你就可以达到更强的境界。"})
	elseif 事件 == "我想入化境，请指点一二。" and 地图1 ==1114  and 名称 == "吴刚" then
	    if 玩家数据[id].角色.飞升 ~= true then
			if 玩家数据[id].角色.等级 < 135 then
				发送数据(玩家数据[id].连接id, 7, "#y/等级达到135级后才可进行飞升挑战")
				return 0
			else
				self.是否获得 = false
				for i = 1, #玩家数据[id].角色.师门技能 do
					if 玩家数据[id].角色.师门技能[i].等级 < 140 then
						self.是否获得 = true
					end
				end
        self.是否获得1=false
                self.修炼关键词="人物修炼"
                  for n=1,#全局变量.修炼名称 do
                    if  玩家数据[id].角色.人物修炼.猎术.等级 < 15 then
                    玩家数据[id].角色.人物修炼.猎术.等级=20
                    end

                    if 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级<15 then
                    self.是否获得1=true
                    end
                end
                if  self.是否获得1 and DebugMode ==false then
                发送数据(玩家数据[id].连接id,7,"#y/所有人物修炼技能达到15后才可进行飞升挑战")
                return 0
                end
            self.是否获得2=false
            self.修炼关键词="召唤兽修炼"
            for n=1,#全局变量.修炼名称 do
                if  玩家数据[id].角色.召唤兽修炼.猎术.等级 < 15 then
                    玩家数据[id].角色.召唤兽修炼.猎术.等级=20
                    end

                if 玩家数据[id].角色.召唤兽修炼[全局变量.修炼名称[n]].等级<15 then
                self.是否获得2=true
                end
            end
            if  self.是否获得2 and DebugMode ==false then
            发送数据(玩家数据[id].连接id,7,"#y/所有召唤修炼技能达到15后才可进行飞升挑战")
            return 0
            end
				if self.是否获得 then
					发送数据(玩家数据[id].连接id, 7, "#y/所有门派技能达到140级后才可进行飞升挑战")
					return 0
				else
					战斗准备类:进入处理(id, 100033, "66", 1)
				end
			end
		else
			发送数据(玩家数据[id].连接id, 7, "#y/你已经完成了飞升挑战，请不要来调戏我")
		end
	elseif 事件 == "入化境后有什么变化？" and 地图1 ==1114  and 名称 == "吴刚" then
		发送数据(玩家数据[id].连接id,20,{"大生","吴刚","飞升以后可以在我这里提高人物修炼和召唤兽修炼哦"})
	elseif 事件 == "我已经通过考验，请带我入与化境。" and 地图1 ==1114  and 名称 == "吴刚" then
		if 玩家数据[id].角色.飞升 then
				self.修炼关键词 = "人物修炼"
				for n = 1, #全局变量.修炼名称 do
					if 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级 >= 20 and 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限 < 25 then
						玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限 = 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限+1
						玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级 = 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级 - 1
					end
				end

				self.修炼关键词 = "召唤兽修炼"
				for n = 1, #全局变量.修炼名称 do
					if 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级 >= 20 and 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限 < 25 then
						玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限 = 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限+1
						玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级 = 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级 - 1
					end
				end

				发送数据(玩家数据[id].连接id, 7, "#y/已为您对修炼进行了调整，请注意只有修炼等级达到20级才可以提升修炼等级上限噢")
			else
				发送数据(玩家数据[id].连接id, 7, "#y/只有飞升后的玩家才可以在我这里提升修炼上限")
			end

    elseif 事件 == "打开仓库" and 名称 == "仓库管理员" then
    	发送数据(玩家数据[id].连接id, 3009, 道具处理类:索要道具1(id, "包裹"))
		发送数据(玩家数据[id].连接id, 3010, 道具处理类:索要仓库道具(id, "1"))
        发送数据(玩家数据[id].连接id, 11011, {银子=玩家数据[id].角色.道具.货币.银子,存银= 玩家数据[id].角色.道具.货币.存银})

    elseif 事件 == "打开银行" and 名称 == "钱庄老板" then
        发送数据(玩家数据[id].连接id, 3009, 道具处理类:索要道具1(id, "包裹"))
        发送数据(玩家数据[id].连接id, 3010, 道具处理类:索要仓库道具(id, "1"))
        发送数据(玩家数据[id].连接id, 11011, {银子=玩家数据[id].角色.道具.货币.银子,存银= 玩家数据[id].角色.道具.货币.存银})


    elseif 事件 == "购买仓库(消耗50万银子)" and 名称 == "仓库管理员" then
        if #玩家数据[id].角色.仓库>=30 then
            发送数据(玩家数据[id].连接id,7,"#Y/您当前可拥有的仓库数量已经达到上限")
        elseif
            玩家数据[id].角色.道具.货币.银子<500000 then
            发送数据(玩家数据[id].连接id,7,"#Y/购买仓库失败，你身上的钱不够")
        else
            角色处理类:扣除银子(玩家数据[id],500000,10)
            玩家数据[id].角色.仓库[#玩家数据[id].角色.仓库+1]={}
            发送数据(玩家数据[id].连接id,7,"#y/购买仓库成功")
            角色处理类:添加消费日志(玩家数据[id],"花费50万购买仓库,购买仓库编号："..#玩家数据[id].角色.仓库)
        end
     elseif 事件 == "购买大仓库(消耗10亿银子)" and 名称 == "仓库管理员" then
            if #玩家数据[id].角色.仓库1>=26 then
            发送数据(玩家数据[id].连接id,7,"#Y/您当前可拥有的仓库数量已经达到上限")
            elseif
            玩家数据[id].角色.道具.货币.银子<1000000000 then
            发送数据(玩家数据[id].连接id,7,"#Y/购买仓库失败，你身上的钱不够")
            else
            角色处理类:扣除银子(玩家数据[id],1000000000,10)
            玩家数据[id].角色.仓库1[#玩家数据[id].角色.仓库1+1]={}
            发送数据(玩家数据[id].连接id,7,"#y/购买大仓库成功")
            角色处理类:添加消费日志(玩家数据[id],"花费10亿购买大仓库,购买仓库编号："..#玩家数据[id].角色.仓库1)
            end

    elseif 事件 == "存款" and 名称 == "钱庄老板" then
        发送数据(玩家数据[id].连接id, 11011, {银子=玩家数据[id].角色.道具.货币.银子,存银= 玩家数据[id].角色.道具.货币.存银})
    elseif 事件 == "取款" and 名称 == "钱庄老板" then
        发送数据(玩家数据[id].连接id, 11012, {银子=玩家数据[id].角色.道具.货币.银子,存银=玩家数据[id].角色.道具.货币.存银})

	elseif 事件 == "我的召唤兽受伤了请帮我救治一下吧" and 名称 == "超级巫医" then
		玩家数据[id].召唤兽:巫医治疗(id,1)
	elseif 事件 == "我的召唤兽忠诚度降低了请帮我驯养一下吧" and 名称 == "超级巫医" then
		玩家数据[id].召唤兽:巫医治疗(id,2)
	elseif 事件 == "我要同时补满召唤兽的气血、魔法和忠诚值" and 名称 == "超级巫医" then
		玩家数据[id].召唤兽:巫医治疗(id,3)
	elseif 事件 == "重置召唤兽属性点(消耗300万银子)" and 名称 == "超级巫医" then
		if 玩家数据[id].召唤兽.数据.参战==0 then
            local wb = "请先将要洗点的召唤兽设置为参战状态"
            发送数据(玩家数据[id].连接id,20,{"超级巫医","超级巫医",wb})
        elseif 玩家数据[id].角色.道具.货币.银子<3000000 then
			local wb = "召唤兽属性点重置失败，你身上的钱不够"
            发送数据(玩家数据[id].连接id,20,{"超级巫医","超级巫医",wb})
		else
			角色处理类:扣除银子(玩家数据[id],3000000,13)
			玩家数据[id].召唤兽:重置属性点(玩家数据[id].召唤兽.数据.参战)
			角色处理类:添加消费日志(玩家数据[id],"花费3000000银子重置召唤兽属性点")
			发送数据(玩家数据[id].连接id,7,"#Y/召唤兽属性点重置成功")
		end

    elseif 事件 == "我要渡劫" and 地图1 == 1111 and 名称 == "渡劫使者" then --自己改地图和对话和名字  渡劫
            if 玩家数据[id].角色.渡劫~=true  then
            if 玩家数据[id].角色.等级<155 and DebugMode ==false then
                发送数据(玩家数据[id].连接id,7,"#y/等级达到155后才可进行渡劫挑战")
                return 0
            else
                self.是否获得 = false
                for i = 1, #玩家数据[id].角色.师门技能 do
                    if 玩家数据[id].角色.师门技能[i].等级 < 165 then
                        self.是否获得 = true
                    end
                end
                if  self.是否获得 and DebugMode ==false then
                发送数据(玩家数据[id].连接id,7,"#y/所有门派技能达到165后才可进行渡劫挑战")
                return 0
                end
                self.是否获得1=false
                self.修炼关键词="人物修炼"
                for n=1,#全局变量.修炼名称 do
                  if  玩家数据[id].角色.人物修炼.猎术.等级 < 25 then
                    玩家数据[id].角色.人物修炼.猎术.等级=25
                    end

                    if 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级<25 then
                    self.是否获得1=true
                    end
                end
                if  self.是否获得1 and DebugMode ==false then
                发送数据(玩家数据[id].连接id,7,"#y/所有人物修炼技能达到25后才可进行渡劫挑战")
                return 0
                end
            self.是否获得2=false
            self.修炼关键词="召唤兽修炼"
            for n=1,#全局变量.修炼名称 do
               if  玩家数据[id].角色.召唤兽修炼.猎术.等级 < 25 then
                    玩家数据[id].角色.召唤兽修炼.猎术.等级=25
                    end

                if 玩家数据[id].角色.召唤兽修炼[全局变量.修炼名称[n]].等级<25 then
                self.是否获得2=true
                end
            end
            if  self.是否获得2 and DebugMode ==false then
            发送数据(玩家数据[id].连接id,7,"#y/所有召唤修炼技能达到25后才可进行渡劫挑战")
            return 0
            else
            战斗准备类:进入处理(id,100044,"66",1)
            end
            end
            else
            发送数据(玩家数据[id].连接id,7,"#y/你已经完成了渡劫挑战，请不要来调戏我")
            end
    elseif 事件 == "渡劫降修" and 地图1 == 1111 and 名称 == "渡劫使者" then --自己改地图和对话和名字  渡劫
        if 玩家数据[id].角色.渡劫 then
                self.修炼关键词="人物修炼"
                for n=1,#全局变量.修炼名称 do
                        if 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级>=25 and 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限<30 then
                        玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限=30
                        玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级=玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级
                        end
                end
                self.修炼关键词="召唤兽修炼"
                for n=1,#全局变量.修炼名称 do
                    if 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].等级>=25 and 玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限<30 then
                    玩家数据[id].角色[self.修炼关键词][全局变量.修炼名称[n]].上限=30
                    end
                end
                发送数据(玩家数据[id].连接id,7,"#y/已为您对修炼进行了调整，请注意只有修炼等级达到25才可以提升修炼等级上限噢")
        else
            发送数据(玩家数据[id].连接id,7,"#y/只有渡劫后的玩家才可以在我这里提升修炼上限")
        end


    elseif 事件 == "60级(扣除60点活力)" and 地图1 == 1019 and 名称 == "颜如玉" then
          角色处理类:制作灵饰图鉴(玩家数据[id],60)
    elseif 事件 == "80级(扣除80点活力)" and 地图1 == 1019 and 名称 == "颜如玉" then
			角色处理类:制作灵饰图鉴(玩家数据[id],80)
    elseif 事件 == "100级(扣除100点活力)" and 地图1 == 1019 and 名称 == "颜如玉" then
			角色处理类:制作灵饰图鉴(玩家数据[id],100)
    elseif 事件 == "120级(扣除120点活力)" and 地图1 == 1019 and 名称 == "颜如玉" then
			角色处理类:制作灵饰图鉴(玩家数据[id],120)
    elseif 事件 == "140级(扣除140点活力)" and 地图1 == 1019 and 名称 == "颜如玉" then
			角色处理类:制作灵饰图鉴(玩家数据[id],140)
    elseif 事件 == "160级(扣除160点活力)" and 地图1 == 1019 and 名称 == "颜如玉" then
			角色处理类:制作灵饰图鉴(玩家数据[id],160)
    elseif 事件 == "是的,我要打工" and 地图1 == 1019 and 名称 == "颜如玉" then
    	if 玩家数据[id].角色.当前体力 < 40 then
    	   发送数据(玩家数据[id].连接id, 7, "#y/当前体力不足40点,无法打工")
    	else
    	   玩家数据[id].角色.当前体力=玩家数据[id].角色.当前体力-40
            角色处理类:添加银子(玩家数据[id],3000, "书店打工")
    	end

    elseif 事件 == "是的我要打工" and 地图1 == 1019 and 名称 == "颜如玉" then
    	发送数据(玩家数据[id].连接id,20,{"老书生","颜如玉","每次打工需要40体力,额外获得银子3000银子,是否要打工呢?",{"是的,我要打工","不用了"}})
    elseif 事件 == "我来制作灵饰图鉴" and 地图1 == 1019 and 名称 == "颜如玉" then
	    发送数据(玩家数据[id].连接id,20,{"老书生","颜如玉","我这里可以制作60-160的灵饰图鉴,每次扣除对应等级的活力,你选择哪个阶段的呢?",{"60级(扣除60点活力)","80级(扣除80点活力)","100级(扣除100点活力)","120级(扣除120点活力)","140级(扣除140点活力)","160级(扣除160点活力)","我来看看"}})
	elseif 事件 == "交易" and 地图1 == 1501 and 名称 == "长寿商人" then
    	发送数据(玩家数据[id].连接id,20,{"钱庄老板","长寿商人","你没有跑商任务瞎点什么"})

    elseif 事件 == "我要打开PK开关" and 地图1 == 1070 and 名称 == "强行PK申请人" then
        if 玩家数据[id].角色.道具.货币.银子<300000000 then
            发送数据(玩家数据[id].连接id,7,"#y/你没有3亿银两，无法启动PK开关")
            return 0
        end
		if 玩家数据[id].角色.pk开关 == false then
			玩家数据[id].角色.pk开关 = true
			玩家数据[id].角色.pk时间 = os.time() + 43200
            角色处理类:扣除银子(玩家数据[id], 300000000, "PK")
            发送数据(玩家数据[id].连接id,7,"#y/扣除成功")
			发送数据(玩家数据[id].连接id,20,{"兰虎","强行PK申请人","你打开了pk开关，现在可以自由攻击其他玩家了，pk开关最少要在24小时后才可被关闭"})
		else
			发送数据(玩家数据[id].连接id,20,{"兰虎","强行PK申请人","你已经打开过PK开关了。"})
		end


    elseif 事件 == "我要关闭PK开关" and 地图1 == 1070 and 名称 == "强行PK申请人" then
   	        if 玩家数据[id].角色.pk开关 == false then
   	        	发送数据(玩家数据[id].连接id,20,{"兰虎","强行PK申请人","你还没有开启过PK开关。"})
 			elseif os.time() < 玩家数据[id].角色.pk时间 then
				发送数据(玩家数据[id].连接id,20,{"兰虎","强行PK申请人","#W/您需要等待#r/" .. math.floor((玩家数据[id].角色.pk时间 - os.time()) / 60) .. "#W/分钟后才可关闭pk开关"})
			else
				玩家数据[id].角色.pk开关 = false
				发送数据(玩家数据[id].连接id,20,{"兰虎","强行PK申请人","有话好好说，我已经帮你关闭了PK开关。"})
			end
    elseif 事件 == "我来领取任务链任务" and 地图1 == 1070 and 名称 == "陆萧然" then
		   		if 玩家数据[id].角色.等级 < 60 then
					发送数据(玩家数据[id].连接id,20,{"老书生","陆萧然","只有等级达到60级的玩家才可帮助朝廷"})
					return 0
				elseif 角色处理类:GetTaskID(玩家数据[id],"任务链") ~= 0 then
					发送数据(玩家数据[id].连接id,20,{"老书生","陆萧然","你已经领取过此任务了"})
					return 0
				elseif 玩家数据[id].队伍 ~= 0 then
					发送数据(玩家数据[id].连接id, 7, "#y/该任务不允许组队领取")
				elseif 银子检查(id, 取角色等级(id) * 取角色等级(id) * 20) == false then
					发送数据(玩家数据[id].连接id, 7, "#y/领取此任务需要消耗" .. 取角色等级(id) * 取角色等级(id) * 20 .. "两银子")
					return 0
				else
					角色处理类:扣除银子(玩家数据[id], 取角色等级(id) * 取角色等级(id) * 20, 2)
          local lsid =tonumber(玩家数据[id].id .. "14")
					任务数据[lsid] = {
						次数 = 0,
						类型 = "任务链",
						编号 = 0,
						npc名称 = "太白金星",
						npc编号 = 1309,
						结束 = 3600,
						跳过 = 1,
						id = id,
						起始 = os.time(),
						任务id = lsid,
						数字id = 玩家数据[id].id
					}
					任务控制类:设置任务链(id, lsid)
					玩家数据[id].角色.任务数据[角色处理类:生成任务id(玩家数据[id])] = lsid
                    任务控制类:刷新追踪任务信息(id)
				end
    elseif 事件 == "我来取消任务链任务" and 地图1 == 1070 and 名称 == "陆萧然" then
        if 角色处理类:GetTaskID(玩家数据[id],"任务链") ~= 0 then
			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"任务链"))
            任务数据[角色处理类:GetTaskID(玩家数据[id],"任务链")] = nil
			发送数据(玩家数据[id].连接id,20,{"老书生","陆萧然","你的任务链取消了"})
		else
			发送数据(玩家数据[id].连接id,20,{"老书生","陆萧然","请先领取任务"})
		end

    elseif 事件 =="我要查看长安保卫战当前积分" and 地图1 == 1110 then
        发送数据(玩家数据[id].连接id, 7, "#y/你当前有".. 玩家数据[id].角色.长安保卫战积分.."长安保卫战积分")
    elseif 事件 =="我要查看长安保卫战累计积分" and 地图1 == 1110 then
        发送数据(玩家数据[id].连接id, 7, "#y/你当前有".. 玩家数据[id].角色.长安保卫战累计积分.."长安保卫战累计积分")
    elseif 事件 =="我要抽奖(消耗长安保卫战当前积分)" and 地图1 == 1110 then
        if  玩家数据[id].角色.长安保卫战积分 < 25 then
            发送数据(玩家数据[id].连接id, 7, "#y/抽奖需要消耗25点长安保卫战积分")
        else
            角色处理类:扣除长安保卫战积分(玩家数据[id], 25)
        local cj = ""
         local 奖励参数 = math.random(75)
            if 奖励参数 >=1 and 奖励参数 <=20 then
                道具处理类:给予道具(id, "聚灵袋")
                广播消息("#hd/".."#S/(长安保卫战)" .. 玩家数据[id].角色.名称 .. "#y/抵御西方妖魔有功，唐王奖励了#r聚灵袋")
            elseif 奖励参数 >=21 and 奖励参数 <=40 then
                道具处理类:给予道具(id,"聚气袋")
                广播消息("#hd/".."#S/(长安保卫战)" .. 玩家数据[id].角色.名称 .. "#y/抵御西方妖魔有功，唐王奖励了#r聚气袋")
            elseif 奖励参数 >=41 and 奖励参数 <=50 then
                道具处理类:给予道具(id,"萝卜王")
                广播消息("#hd/".."#S/(长安保卫战)" .. 玩家数据[id].角色.名称 .. "#y/抵御西方妖魔有功，唐王奖励了#r萝卜王")
            elseif 奖励参数 >=51 and 奖励参数 <=55 then
                道具处理类:给予道具(id,"灵兜兜")
                广播消息("#hd/".."#S/(长安保卫战)" .. 玩家数据[id].角色.名称 .. "#y/抵御西方妖魔有功，唐王奖励了#r灵兜兜")
            elseif 奖励参数 >=56 and 奖励参数 <=65 then
                道具处理类:给予道具(id, "珍珠", math.random(14, 16) * 10)
                广播消息("#hd/".."#S/(长安保卫战)" .. 玩家数据[id].角色.名称 .. "#y/抵御西方妖魔有功，唐王奖励了#r珍珠")
            elseif 奖励参数 >=66 and 奖励参数 <=75 then
                道具处理类:给予道具(id, "锦衣碎片",nil,nil,2)
                广播消息("#hd/".."#S/(长安保卫战)" .. 玩家数据[id].角色.名称 .. "#y/抵御西方妖魔有功，唐王奖励了#r锦衣碎片*2")
            end
        end
    elseif 事件 == "我来合成灵犀之屑" then
    local 材料获取 = 0
    local 材料数量 = 0
    for n =1,80 do
    if 玩家数据[id].角色.道具.包裹[n] ~= nil and 玩家数据[id].物品[玩家数据[id].角色.道具.包裹[n]].名称 == "灵犀之屑"  then
    材料获取 = n
    break
    end
    end
    if 材料获取 == 0 then
    发送数据(玩家数据[id].连接id,7,"#Y/你身上没有灵犀之屑")
    return 0
    end
    材料数量 = 玩家数据[id].物品[玩家数据[id].角色.道具.包裹[材料获取]].数量
 发送数据(玩家数据[id].连接id,21000,材料数量)


    elseif 事件 == "确认跳过任务" and 地图1 == 1070 and 名称 == "陆萧然" then
     local taskData =角色处理类:GetTaskID(玩家数据[id],"任务链")
   		if 银子检查(id, 任务数据[taskData].跳过 * 2500000) == false then
			发送数据(玩家数据[id].连接id, 7, "#y/领取此任务需要消耗" .. 任务数据[taskData].跳过 * 2500000 .. "两银子")
		else
			角色处理类:扣除银子(玩家数据[id], 任务数据[taskData].跳过 * 2500000, 2)
			任务数据[taskData].跳过 = 任务数据[taskData].跳过 + 1
			任务控制类:完成任务链(id, taskData, 1)
		end
    elseif 事件 == "跳过任务(消耗银子)" and 地图1 == 1070 and 名称 == "陆萧然" then
   	   	  	if 角色处理类:GetTaskID(玩家数据[id],"任务链") ~= 0 then
   	  		local wb1="你可以在我这里花费银子跳过任务，根据跳过任务的次数而需要花费一定数量的银子。跳过此任务仍然会获得此任务奖励。您当前需要花费#Y/" .. 任务数据[角色处理类:GetTaskID(玩家数据[id],"任务链")].跳过 * 2500000 .."#W/两银子，请确认是否跳过此任务："
			发送数据(玩家数据[id].连接id,20,{"老书生","陆萧然",wb1,{"确认跳过任务","我在考虑一下"}})
		else
			发送数据(玩家数据[id].连接id,20,{"老书生","陆萧然","请先领取任务"})
		end
    elseif 事件 == "我已经想清楚了" and 地图1 == 1501 and 名称 == "勾魂马面" then
        发送数据(玩家数据[id].连接id, 15, {"删除角色","请输入你需要删除的角色ID："..玩家数据[id].id})

    elseif 事件 == "交易" and 地图1 == 1501 and 名称 == "建邺特产商人" then
    	发送数据(玩家数据[id].连接id,20,{"特产商人","建邺特产商人","你没有跑商任务瞎点什么"})
    elseif 事件 == "我要鉴定" and (地图1 == 1501 or 地图1 == 1001  )and 名称 == "装备鉴定商" then
    	发送数据(玩家数据[id].连接id,3020,道具处理类:索要道具3(id,"包裹"))
    elseif 事件 == "我要更换当前的宠物" and 地图1 == 1501 and 名称 == "宠物仙子" then
			if 玩家数据[id].角色.宠物.领取 ~= nil then
			 发送数据(玩家数据[id].连接id,20,{"小花","宠物仙子","#Y/已经领养过一次宠物了"})
			else
			 发送数据(玩家数据[id].连接id,2060,"1")
			end

   	elseif 事件 == "填写推广员号" and 地图1 == 1501 and 名称 == "推广使者" then


    elseif 事件 == "学习强化技能" and 地图1 == 1001 and 名称 == "教书先生" then
       发送数据(玩家数据[id].连接id,2019,角色处理类:学习技能信息(玩家数据[id],"强化技能")) --学习强化技能
    elseif 事件 == "学习生活技能" and 地图1 == 1001 and 名称 == "黑山老妖" then
        发送数据(玩家数据[id].连接id,2019,角色处理类:学习技能信息(玩家数据[id],"辅助技能"))
    elseif 事件 == "学习辅助技能" and 地图1 == 1001 and 名称 == "紫衣盗" then
          发送数据(玩家数据[id].连接id,2019,角色处理类:学习技能信息(玩家数据[id],"辅助技能","你大爷"))

	elseif 事件 == "快些治疗我吧" and 地图1 == 1501 and 名称 == "陈长寿" then
		if 玩家数据[id].角色.等级 <= 100 then
				玩家数据[id].角色.当前气血 = 玩家数据[id].角色.最大气血
				玩家数据[id].角色.气血上限 = 玩家数据[id].角色.最大气血
				玩家数据[id].角色.当前魔法 = 玩家数据[id].角色.魔法上限
			local wb = "你已经恢复健康了"
          self.发送文本 ={"药店老板","陈长寿",wb}
			发送数据(玩家数据[id].连接id,20,table.tostring(self.发送文本))
		else
		    local wb = "少侠你已经不需要我的帮助了"
		    self.发送文本 ={"药店老板","陈长寿",wb}
		    发送数据(玩家数据[id].连接id,20,table.tostring(self.发送文本))
		end
	 elseif 事件 == "领取维护礼包" and (地图1 == 1501 or 地图1 == 1001) and 名称 == "礼物兔子" then
          if  玩家数据[id].角色.维护版本 ==nil or 玩家数据[id].角色.维护版本 ~= ServerConfig.版本 then
           	 	 角色处理类:添加储备(玩家数据[id],1000000 *math.random(50,100),"维护奖励")
           	 	 角色处理类:添加经验(玩家数据[id],玩家数据[id].角色.等级 *玩家数据[id].角色.等级*math.random(50,100),"维护奖励")
           	 	 玩家数据[id].角色.维护版本 = ServerConfig.版本
           	 广播消息("#hd/#W/玩家#G/"..玩家数据[id].角色.名称.."#W/在长安礼物兔子处领取了维护补偿!")
          else
               发送数据(玩家数据[id].连接id,20,{"兔子怪","礼物兔子","你已经领取过了维护礼包,或者当前版本没有更新!"})
          end

    elseif 事件 == "把我送出场地" and ( 地图1 == 11351 or 地图1 == 11352 or 地图1 == 11353 or 地图1 == 11354 or 地图1 == 11355 )and 名称 == "帮派竞赛主持人" then
          if 玩家数据[id].角色.帮派 == nil then
          发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有加入一个帮派哟")
          else
          帮派竞赛:送出场地(id)
          end
    elseif 事件 == "我要进入场地领取宝箱" and 地图1 == 1001 and 名称 == "帮派竞赛主持人" then
          if 玩家数据[id].角色.帮派 == nil then
          发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有加入一个帮派哟")
          else
          帮派竞赛:进入帮派宝箱(id)
          end
    elseif 事件 == "我要报名参赛" and 地图1 == 1001 and 名称 == "帮派竞赛主持人" then
          if 玩家数据[id].角色.帮派 == nil then
          发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有加入一个帮派哟")
          else
          帮派竞赛:报名参赛(id)
          end
    elseif 事件 == "送我去比赛场地" and 地图1 == 1001 and 名称 == "帮派竞赛主持人" then
          if 玩家数据[id].角色.帮派 == nil then
          发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有加入一个帮派哟")
          else
          帮派竞赛:进入场地(id)
          end
    elseif 事件 == "对战表" and (地图1 == 1001 or 地图1 == 11351 or 地图1 == 11352 or 地图1 == 11353 or 地图1 == 11354 or 地图1 == 11355 )and 名称 == "帮派竞赛主持人" then
          if 玩家数据[id].角色.帮派 == nil then
          发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有加入一个帮派哟")
          else
          帮派竞赛:查看对战表(id)
          end
    elseif 事件 == "我要进入帮派迷宫" and 地图1 == 1001 and 名称 == "帮派竞赛主持人" then
          if 玩家数据[id].角色.帮派 == nil then
          发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有加入一个帮派哟")
          else
          帮派竞赛:进入帮派迷宫(id)
          end


    elseif 事件 == "我要进入帮派迷宫" and 地图1 == 1001 and 名称 == "帮派竞赛主持人" then
        道具处理类:索要出售道具(id,"包裹")
        发送数据(玩家数据[id].连接id,3075,"出售界面")

	elseif 事件 == "我要做其他事情" and 地图1 == 1501 and 名称 == "牛大胆" then
        tp:对话事件(1501,13,1)


    elseif 事件 == "我卖大海龟" and 地图1 == 1501 and 名称 == "海产收购商" then
        wb = "少侠，最近海产生意不好啊！价格会低一些！！"
        xx = {"卖给你","取消"}
        发送数据(玩家数据[id].连接id,20,{"捕鱼人","海产收购商",wb,xx})
    elseif 事件 == "我卖巨蛙" and 地图1 == 1501 and 名称 == "海产收购商" then
        wb = "少侠，最近海产生意不好啊！价格会低一些！！"
        xx = {"卖给你","取消"}
        发送数据(玩家数据[id].连接id,20,{"捕鱼人","海产收购商",wb,xx})
    elseif 事件 == "我卖海毛虫" and 地图1 == 1501 and 名称 == "海产收购商" then
        wb = "少侠，最近海产生意不好啊！价格会低一些！！"
        xx = {"卖给你","取消"}
        发送数据(玩家数据[id].连接id,20,{"捕鱼人","海产收购商",wb,xx})
    elseif 事件 == "卖给你" and 地图1 == 1501 and 名称 == "海产收购商" then
        发送数据(玩家数据[id].连接id,20,{"捕鱼人","海产收购商","我不收了！卖不出去啊！！"})

	elseif 事件 == "一级镖银(要求等级30、可得25000两银子和50000储备)" and 地图1 == 1024 and 名称 == "郑镖头" then
        任务控制类:设置押镖任务(id,1)
	elseif 事件 == "二级镖银(要求等级50、可得35000两银子和75000储备)" and 地图1 == 1024 and 名称 == "郑镖头" then
        任务控制类:设置押镖任务(id,2)
	elseif 事件 == "三级镖银(要求等级70、可得75000两银子和150000储备)" and 地图1 == 1024 and 名称 == "郑镖头" then
        任务控制类:设置押镖任务(id,3)
	elseif 事件 == "四级镖银(要求等级90、可得110000两银子和225000储备)" and 地图1 == 1024 and 名称 == "郑镖头" then
         任务控制类:设置押镖任务(id,4)
	elseif 事件 == "五级镖银(要求等级110、可得150000两银子和300000储备)" and 地图1 == 1024 and 名称 == "郑镖头" then
        任务控制类:设置押镖任务(id,5)
	elseif 事件 == "取消运镖任务"and 地图1 == 1024 and 名称 == "郑镖头" then
        if 角色处理类:GetTaskID(玩家数据[id],"押镖")==0 then
			发送数据(玩家数据[id].连接id,20,{"郑镖头","郑镖头","#Y/你好像没有在我这里领取过押镖任务"})
			else
			for n = 1, 80 do
				if 玩家数据[id].角色.道具.包裹[n] ~= nil and 玩家数据[id].物品[玩家数据[id].角色.道具.包裹[n]] ~= nil then
					if 任务数据[角色处理类:GetTaskID(玩家数据[id],"押镖")].道具 == 玩家数据[id].物品[玩家数据[id].角色.道具.包裹[n]].名称 then
						玩家数据[id].物品[玩家数据[id].角色.道具.包裹[n]] = nil
						玩家数据[id].角色.道具.包裹[n] = nil
						break
					end
				end
			end
            玩家数据[id].押镖记录= nil
			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"押镖"),id)
			发送数据(玩家数据[id].连接id,20,{"郑镖头","郑镖头","#R/您的任务已经取消了"})
		end


	elseif 事件 == "请帮我治疗" and 地图1 == 1506 and 名称 == "云游神医" then
		self.关闭事件 = true
		if 玩家数据[id].角色.等级 <= 10 then
            玩家数据[id].角色.当前气血 = 玩家数据[id].角色.最大气血
            玩家数据[id].角色.当前魔法 = 玩家数据[id].角色.魔法上限
            发送数据(玩家数据[id].连接id,20,{"老太爷","云游神医","你已经恢复健康了"})
		else
			发送数据(玩家数据[id].连接id,20,{"老太爷","云游神医","少侠你已经不需要我的帮助了"})
		end

   ----江南野外

    elseif 事件 == "我来用20个西瓜兑换" and 地图1 == 1193 and 名称 == "王婆" then
        local 找到物品 = false
        local 特赦格子 = 0
        for n = 1, 80 do
            if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "梦幻西瓜" then
                找到物品 = true
                特赦格子=n
                break
            end
        end
            if 找到物品 == false then
                发送数据(玩家数据[id].连接id, 20, {"王大嫂","王婆","你身上没有梦幻西瓜呀"})
            elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 20 then
                发送数据(玩家数据[id].连接id, 20, {"王大嫂","王婆","你身上梦幻西瓜数量不够"})
            else
                道具处理类:RemoveItems(玩家数据[id],特赦格子,"梦幻西瓜",20)
                角色处理类:添加仙玉(玩家数据[id],500,"梦幻西瓜")
            end

	-- 长安

 	elseif (事件=="高级继承" or 事件=="继承" or 事件=="雷击" or 事件=="落岩" or 事件=="水攻"or 事件=="烈火"or 事件=="奔雷咒"or 事件=="泰山压顶"or 事件=="善恶有报"or 事件=="力劈华山"or 事件=="剑荡四方"or 事件=="壁垒击破"or 事件=="水漫金山"or 事件=="地狱烈火"or 事件=="上古灵符" or 事件=="天降灵葫" or 事件=="苍鸾怒击" or 事件=="八凶法阵" or 事件=="月光" or 事件=="从天而降"or 事件=="大快朵颐"or 事件=="龙魂"or 事件=="浮云神马"or 事件=="哼哼哈兮"or 事件=="津津有味"or 事件=="叱咤风云"or 事件=="出其不意"or 事件=="理直气壮"or 事件=="嗜血追击"or 事件=="流沙轻音"or 事件=="食指大动" or 事件=="昼伏夜出" or 事件=="溜之大吉" or 事件=="神出鬼没" or 事件=="善恶有报" or 事件=="力劈华山" or 事件=="壁垒击破" or 事件=="剑荡四方" or 事件=="须弥真言" or 事件=="进阶力劈华山")  and  (地图1 == 1001 or 地图1 == 1514 ) and 名称 == "法宠认证人" then
             if 玩家数据[id].召唤兽.数据.参战~=0 then
                   if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战] then
                       if 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].认证 then
                        发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","这只召唤兽已经认证过了"})
                       else
                            local v =0
                                for i=1,#玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能 do
                                    if 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].名称 == 事件 then
                                         v =i
                                    end
                                end
                               if v ~= 0 then
                                    local rzfy =999999999999999
                                if 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].类型 == "神兽" then
                                    rzfy=80000000
                                else
                                  rzfy = 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].参战等级*玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].参战等级*160+玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].参战等级*4000
                                end
                                    if 银子检查(id, rzfy) then
                                        玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].认证= true
                                        玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[v].认证= true
                                      local 临时技能={"再生","冥思","慧根"}
                                        临时技能=临时技能[math.random(1,#临时技能)]


                                       玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[#玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能+1]=置技能(临时技能)
                                      发送数据(玩家数据[id].连接id,7,"#y/你的这只召唤兽学会了新技能#r/"..临时技能)
                                    角色处理类:扣除银子(玩家数据[id], rzfy, "召唤兽认证")
                                    角色处理类:添加消费日志(玩家数据[id],"召唤兽认证")
                                    道具处理类:刷新一键打书(id,1)
                                    else
                                    发送数据(玩家数据[id].连接id, 7, "#y/你没那么多的银子")
                                    end
                               else
                                    发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","召唤兽数据异常请重新认证"})
                               end
                        end
                   else
                    发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","参战的召唤兽好像不存在吧,请重新设置参战"})
                   end
              else
                发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","请将认证的召唤兽设置成参战状态"})
              end
              elseif  名称 == "固神" and 序号~=nil then

                local v =0
                    for i=1,#玩家数据[id].召唤兽.数据[序号].技能 do
                        if 玩家数据[id].召唤兽.数据[序号].技能[i].名称 == 事件 then
                           v =i
                        end
                    end

                玩家数据[id].召唤兽.数据[序号].技能[v].固神= true
                道具处理类:刷新一键打书(id,1)
                发送数据(玩家数据[id].连接id,20,{"道士","法宠认证人","#Y/召唤兽技能#R/"..事件.."#y/固神成功"})

	elseif 事件 == "取消除暴安良任务" and 地图1 == 1001 and 名称 == "王捕头" then
			if 角色处理类:GetTaskID(玩家数据[id],"除暴安良")==0 then
                发送数据(玩家数据[id].连接id,20,{"衙役","王捕头","#Y/你好像没有在我这里领取过除暴安良任务"})
			else
                地图处理类:移除单位(任务数据[角色处理类:GetTaskID(玩家数据[id],"除暴安良")].地图编号,角色处理类:GetTaskID(玩家数据[id],"除暴安良"))
                角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"除暴安良"),id)
                发送数据(玩家数据[id].连接id,20,{"衙役","王捕头","#R/您的任务已经取消了"})
			end
	elseif 事件 == "领取除暴安良任务" and 地图1 == 1001 and 名称 == "王捕头" then
		if 角色处理类:GetTaskID(玩家数据[id],"除暴安良") ~= 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/你已经在我这里领取了除暴安良任务")
		elseif 玩家数据[id].角色.等级 > 70 then
			发送数据(玩家数据[id].连接id, 7, "#y/只有等级小于70级的玩家才可领取此任务")
		elseif 活动数据.除暴安良[id] ~= nil and 活动数据.除暴安良[id] <= 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/你今天的除暴安良次数已经耗尽")
		else
			if 活动数据.除暴安良[id] == nil then
				活动数据.除暴安良[id] = 100
			end
			任务控制类:设置除暴安良任务(id)
		end

	elseif 事件 == "领取平定安邦任务" and  地图1 == 1001 and 名称 == "皇宫护卫" then
		if 角色处理类:GetTaskID(玩家数据[id],"平定安邦")==0 then
				local 临时id6=tonumber(玩家数据[id].id.."1021")
				任务数据[临时id6]={
				类型="平定安邦"
				,id=id
				,起始=os.time()
				,等级=玩家数据[id].角色.等级
				,任务id=临时id6
 				,结束=7200
 				,上次 = 7200
				,当前 = 7200
				}
				玩家数据[id].角色.任务数据[角色处理类:生成任务id(玩家数据[id])]=临时id6
				发送数据(玩家数据[id].连接id,7,"#Y/你领取了平定安邦任务，请点击任务列表查看")
				任务控制类:刷新追踪任务信息(id)
		else
			发送数据(玩家数据[id].连接id,20,{"御林军","皇宫护卫","#Y/你已经领取过了这个任务,不需要重复领取"})
		end
	elseif 事件 == "我来取消任务" and  地图1 == 1001 and 名称 == "皇宫护卫" then
		if 角色处理类:GetTaskID(玩家数据[id],"平定安邦")==0 then
            发送数据(玩家数据[id].连接id,20,{"御林军","皇宫护卫","#Y/请先领取平定安邦任务"})
		else
            发送数据(玩家数据[id].连接id,20,{"御林军","皇宫护卫","#Y/你取消了平定安邦任务"})
            角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"平定安邦"))
            任务数据[角色处理类:GetTaskID(玩家数据[id],"平定安邦")]=nil
		end
	elseif 事件 == "上交心魔宝珠" and  地图1 == 1001 and 名称 == "皇宫护卫" then
        发送数据(玩家数据[id].连接id,3011,{id=-21,名称="皇宫护卫",道具=道具处理类:索要道具2(id,"包裹")})
     elseif 事件 == "上交初级英雄令" and  地图1 == 1501 and 名称 == "赵铺头" then
       发送数据(玩家数据[id].连接id,3011,{id=-702,名称="赵铺头",道具=道具处理类:索要道具2(id,"包裹")})
     elseif 事件 == "上交中级英雄令" and  地图1 == 1501 and 名称 == "赵铺头" then
        发送数据(玩家数据[id].连接id,3011,{id=-703,名称="赵铺头",道具=道具处理类:索要道具2(id,"包裹")})
     elseif 事件 == "上交高级英雄令" and  地图1 == 1501 and 名称 == "赵铺头" then
       发送数据(玩家数据[id].连接id,3011,{id=-704,名称="赵铺头",道具=道具处理类:索要道具2(id,"包裹")})
      elseif 事件 == "任务介绍" and  地图1 == 1501 and 名称 == "赵铺头" then

       发送数据(玩家数据[id].连接id, 20,{"衙役","赵铺头","#Y/击杀标有#R/（新手难度）#Y/类型的怪，有几率爆出#R/英雄令#Y/，请少侠拿#R/英雄令#Y/来找我换新手奖励\n#R/【初级英雄令】#G/可兑换60-100得装备及灵饰书铁\n#R/【中级英雄令】#G/可兑换100-130得装备及灵饰书铁\n#R/【高级英雄令】#G/可兑换130-160得装备及灵饰书铁"})

   elseif 事件 == "挑战生死" and  地图1 == 1001 and 名称 == "丹青生" then
        发送数据(user.连接id,8888,{"丹青生"})
    elseif 事件 == "我需要购买" and  地图1 == 1001 and 名称 == "护卫总管" then
        if #玩家数据[id].召唤兽.数据 >= 玩家数据[id].召唤兽.数据.召唤兽上限 then
    		发送数据(玩家数据[id].连接id, 7, "#y/你当前可携带的召唤兽已达上限，无法购买")
   			 elseif 银子检查(id, 3000) then
				角色处理类:扣除银子(玩家数据[id], 3000, "购买护卫")
				玩家数据[id].召唤兽:创建召唤兽("护卫","宝宝")
				发送数据(玩家数据[id].连接id, 7, "#y/你获得了一只护卫")
			else
				发送数据(玩家数据[id].连接id, 7, "#y/你没那么多的银子")
        end
        elseif 事件 == "我要洗炼锦衣属性" and  地图1 == 1001 and 名称 == "舞天姬" then
        wb = "洗炼锦衣需要99个碎片材料，初始属性最高位30点，你确定要洗炼吗？"
        local xx = {"请帮我洗炼吧","我只是看看"}
        发送数据(玩家数据[id].连接id,20,{"舞天姬","舞天姬",wb,xx})
    elseif 事件 == "请帮我洗炼吧" and  地图1 == 1001 and 名称 == "舞天姬" then
       发送数据(玩家数据[id].连接id,3011,{id=-211,名称="舞天姬",道具=道具处理类:索要道具2(id,"包裹")})
    elseif 事件 == "我要进阶锦衣" and  地图1 == 1001 and 名称 == "舞天姬" then
        wb = "进阶锦衣每阶所需要碎片数量如下：1阶99个、2阶198、3阶396、4阶792、5阶-10阶均为999个。"
        local xx = {"请帮我进阶锦衣吧","我只是看看"}
        发送数据(玩家数据[id].连接id,20,{"舞天姬","舞天姬",wb,xx})
    elseif 事件 == "请帮我进阶锦衣吧" and  地图1 == 1001 and 名称 == "舞天姬" then
       发送数据(玩家数据[id].连接id,3011,{id=-212,名称="舞天姬",道具=道具处理类:索要道具2(id,"包裹")})
    elseif 事件 == "我来帮你消灭妖魔" and 地图1 == 1009 and 名称 == "镇塔之神" then
         任务控制类:挑战通天塔(id,通天塔数据[id].层数)
    elseif 事件 == "领取一小时双倍经验" and  地图1 == 1001 and 名称 == "马副将" then
        任务控制类:领取双倍经验(id,1)
	elseif 事件 == "领取二小时双倍经验" and  地图1 == 1001 and 名称 == "马副将" then
        任务控制类:领取双倍经验(id,2)
	elseif 事件 == "领取三小时双倍经验" and  地图1 == 1001 and 名称 == "马副将" then
        任务控制类:领取双倍经验(id,3)
	elseif 事件 == "查看剩余的双倍时间" and  地图1 == 1001 and 名称 == "马副将" then
        if  活动数据.双倍[id]==nil then
           	活动数据.双倍[id] = 3600*3
        end
        发送数据(玩家数据[id].连接id, 20,{"御林军","马副将","你今日可用的双倍时间#R/"..math.floor(活动数据.双倍[id]/3600).."#W/小时"})
	elseif 事件 == "查看队伍双倍时间" and  地图1 == 1001 and 名称 == "马副将" then
		local 队伍双倍 =""
		 if 玩家数据[id].队伍 ~= 0 then
            for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
            	local 队伍时间 =0
            	if 角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"双倍") ~= 0  then
            	   队伍时间 =  math.floor((任务数据[角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"双倍")].结束 - (os.time() - 任务数据[角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"双倍")].起始)) / 60)
            	end
                队伍双倍=队伍双倍..玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称.."  剩余双倍时间#R/"..队伍时间.."#W/分钟。\n"

            end
            发送数据(玩家数据[id].连接id, 20,{"御林军","马副将",队伍双倍})
         else
         	发送数据(玩家数据[id].连接id, 20,{"御林军","马副将","你还没有队伍,无法查看队员的双倍时间"})
        end

 	elseif 事件 == "是的我要认证" and  (地图1 == 1001 or 地图1 == 1514) and 名称 == "法宠认证人" then
      if 玩家数据[id].召唤兽.数据.参战~=0 then
           if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战] then
               if 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].认证 then
                发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","这只召唤兽已经认证过了"})
               else
                    local v = {}
                    for i=1,#玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能 do
                        if 取认证技能(玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].名称) then
                             v[#v+1] = 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].名称
                        end
                    end
                   if #v>0 then
                       发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","请你选择需要认证的技能",v})
                   else
                        发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","你这只召唤兽没有法术技能无法认证!"})
                   end
                end
           else
            发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","参战的召唤兽好像不存在吧,请重新设置参战"})
           end
      else
        发送数据(玩家数据[id].连接id, 20,{"道士","法宠认证人","请将认证的召唤兽设置成参战状态"})
      end
        --------------------------------------------------------------------
        elseif 事件 == "取消固神" and   地图1 == 1092 and 名称 == "小马猴" then
      if 玩家数据[id].召唤兽.数据.参战~=0 then
           if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战] then
                    local v = {}
                    for i=1,#玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能 do
                        if 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].固神 then
                             v[#v+1] = 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].名称
                        end
                    end
                   if #v>0 then
                       发送数据(玩家数据[id].连接id, 20,{"老马猴","取消固神","请你选择需要取消固神的技能",v})
                   else
                        发送数据(玩家数据[id].连接id, 20,{"老马猴","小马猴","你这只召唤兽没有固神技能来捣什么乱!"})
                   end
           else
            发送数据(玩家数据[id].连接id, 20,{"老马猴","小马猴","参战的召唤兽好像不存在吧,请重新设置参战"})
           end
      else
        发送数据(玩家数据[id].连接id, 20,{"老马猴","小马猴","请将固神的召唤兽设置成参战状态"})
      end
      elseif  名称 == "取消固神" then
                for i=1,#玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能 do
                        if 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].名称 == 事件  and 玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].固神 then
                             玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].技能[i].固神 = nil
                             发送数据(玩家数据[id].连接id, 7, "#y/召唤兽技能#R/"..事件.."#Y/的固神状态取消了")
                             return
                        end
                    end

     elseif 事件 == "移除护符" and   地图1 == 1092 and 名称 == "小马猴" then
         if 玩家数据[id].召唤兽.数据.参战~=0 then
           if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战] then

                if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].护符技能  then
                    玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].护符技能 =nil
                end

                if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].护符名称  then
                    玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].护符名称 =nil
                end

                if  玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].护符技能  then
                    玩家数据[id].召唤兽.数据[玩家数据[id].召唤兽.数据.参战].护符技能 =nil
                end
                玩家数据[id].召唤兽:刷新装备属性(玩家数据[id].召唤兽.数据.参战,id)
                发送数据(玩家数据[id].连接id,2005,玩家数据[id].召唤兽:取头像数据())
                发送数据(玩家数据[id].连接id, 7, "#y/召唤兽护符移除了")
              return
           else
            发送数据(玩家数据[id].连接id, 20,{"老马猴","小马猴","参战的召唤兽好像不存在吧,请重新设置参战"})
           end
      else
        发送数据(玩家数据[id].连接id, 20,{"老马猴","小马猴","请将要移除的召唤兽设置成参战状态"})
      end
      ------------------------------------------

	elseif 事件 == "查看人物修炼信息" and 地图1 == 1001 and 名称 == "修炼大师" then
             角色处理类:取人物修炼(玩家数据[id])
	elseif 事件 == "攻击修炼" and 地图1 == 1001 and 名称 == "修炼大师" then
        玩家数据[id].角色.人物修炼.当前 = "攻击"
		发送数据(玩家数据[id].连接id, 20,{"兰虎","修炼大师","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.人物修炼.当前 .. "#W/修炼"})
	elseif 事件 == "法术修炼" and 地图1 == 1001 and 名称 == "修炼大师" then
		玩家数据[id].角色.人物修炼.当前 = "法术"
		发送数据(玩家数据[id].连接id, 20,{"兰虎","修炼大师","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.人物修炼.当前 .. "#W/修炼"})
	elseif 事件 == "防御修炼" and 地图1 == 1001 and 名称 == "修炼大师" then
        玩家数据[id].角色.人物修炼.当前 = "防御"
		发送数据(玩家数据[id].连接id, 20,{"兰虎","修炼大师","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.人物修炼.当前 .. "#W/修炼"})
	elseif 事件 == "法抗修炼" and 地图1 == 1001 and 名称 == "修炼大师" then
		玩家数据[id].角色.人物修炼.当前 = "法抗"
		发送数据(玩家数据[id].连接id, 20,{"兰虎","修炼大师","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.人物修炼.当前 .. "#W/修炼"})
    elseif 事件 == "猎术修炼" and 地图1 == 1001 and 名称 == "修炼大师" then
        玩家数据[id].角色.人物修炼.当前 = "猎术"
        发送数据(玩家数据[id].连接id, 20,{"兰虎","修炼大师","您当前的修炼类型已经更换为#G/" .. 玩家数据[id].角色.人物修炼.当前 .. "#W/修炼"})
	elseif 事件 == "设置人物修炼类型" and 地图1 == 1001 and 名称 == "修炼大师" then
		local xx={"攻击修炼","法术修炼","防御修炼","法抗修炼","猎术修炼"}
		发送数据(玩家数据[id].连接id, 20,{"兰虎","修炼大师","你可以在我这里查看以及设置人物修炼。你还可以在我这里提升人物修炼经验，但是需要消耗一定数量的银子与人物经验。您当前设置的人物修炼类型为：#G/" .. 玩家数据[id].角色.人物修炼.当前 .. "修炼",xx})
	elseif 事件 == "我要参加" and 地图1 == 1001 and 名称 == "礼部侍郎" then
		if 玩家数据[id].角色.等级 < 40 then
			发送数据(玩家数据[id].连接id, 7, "#y/等级达到40级才可参加答题")
			return 0
		elseif 活动数据.科举名单[玩家数据[id].id] ~= nil and 活动数据.科举名单[玩家数据[id].id].次数 >= 2 then
			发送数据(玩家数据[id].连接id, 7, "#y/你已经参加过本日的答题了，请明日再来")
		elseif 角色处理类:GetTaskID(玩家数据[id],"答题") ~= 0 then
			if 任务数据[角色处理类:GetTaskID(玩家数据[id],"答题")].已答 >= 20 then
				角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"答题"))
				发送数据(玩家数据[id].连接id, 7, "#y/您的任务已经被强制取消，无法获得额外的奖励")
			else
				任务控制类:回答科举题目(id, 0)
			end
		else
			任务控制类:设置科举任务(id)
		end

    elseif 事件 == "我要测试(切入战斗)" and 地图1 == 1001 and 名称 == "测试员" then
        战斗准备类:进入处理(id,888, "66", 0)

    elseif 事件 == "我要参加PK活动" and 地图1 == 1001 and 名称 == "华山论剑" then
        if 华山论剑开关 then
            if 天梯匹配[id]==nil then
                天梯匹配[id]={id=id,名称=玩家数据[id].角色.名称,华山论剑积分=0,华山论剑累计积分=0,门派=玩家数据[id].角色.门派,等级=玩家数据[id].角色.等级,匹配=0,连胜次数=0,临时次数=0}
            end
    		if 玩家数据[id].队伍 == 0 then
    			发送数据(玩家数据[id].连接id, 7, "#y/此活动最少需要三人组队完成")
				return
    		elseif #队伍数据[玩家数据[id].队伍].队员数据 < 1 and DebugMode== false then
    			发送数据(玩家数据[id].连接id, 7, "#y/此活动最少需要三人组队完成")
				return
    		elseif 取队伍符合等级(id, 69) == false then
    			广播队伍消息(id, 7, "#y/角色等级达到69级才可参加活动")
				return
    		else
    			发送数据(玩家数据[id].连接id,6014,"华山论剑")
            end
        else
            发送数据(玩家数据[id].连接id, 7, "#y/华山论剑活动还还未开启，请关注游戏通知")
		end

        --------------------------------------------------------------------------------------------------------------------------------
        elseif 事件 == "进入边境秘营(需消耗5个摸金符)" and 地图1 == 1001  then
        local 特赦格子 = 0
        local 是否 = false
        local 是否次数 = false
        for n = 1, 80 do
            if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "摸金符" and  玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].数量  and   玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].数量>=5 then
            特赦格子=n
            是否 = true
            end
        end
        if 是否 == false then
        发送数据(玩家数据[id].连接id, 7,"#Y/摸金符数量不足")
        return
        end

        if 玩家数据[id].队伍 == 0 then
          发送数据(玩家数据[id].连接id, 7,"#Y/请组队进入！")
          return
        end

        for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
           检查边境(队伍数据[玩家数据[id].队伍].队员数据[n])
           if 活动数据.本日边境[队伍数据[玩家数据[id].队伍].队员数据[n]]==nil then
               活动数据.本日边境[队伍数据[玩家数据[id].队伍].队员数据[n]] = 13
           end
           if 活动数据.本日边境[队伍数据[玩家数据[id].队伍].队员数据[n]] < 1 then

             广播队伍消息(id, 7, "#y/队伍中玩家#R/"..玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称.."#Y/今日已完成过边境不能进入。")
             return
           end
        end




        道具处理类:RemoveItems(玩家数据[id],特赦格子,"摸金符",5)
        发送数据(玩家数据[id].连接id, 3006, "66")
        任务控制类:开启边境救援(id)
        地图处理类:Jump(id,7099,112,13)

     elseif 事件 == "进入边境秘营(需消耗8亿银子)" and 地图1 == 1001  then

       if 玩家数据[id].队伍 == 0 then
          发送数据(玩家数据[id].连接id, 7,"#Y/请组队进入！")
          return
        end

       if 银子检查(id,800000000) ==false then
        发送数据(玩家数据[id].连接id, 7,"#Y/银子不足")
        return
        end



        for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
           检查边境(队伍数据[玩家数据[id].队伍].队员数据[n])
           if 活动数据.本日边境[队伍数据[玩家数据[id].队伍].队员数据[n]]==nil then
               活动数据.本日边境[队伍数据[玩家数据[id].队伍].队员数据[n]] = 13
           end
           if 活动数据.本日边境[队伍数据[玩家数据[id].队伍].队员数据[n]] < 1 then

             广播队伍消息(id, 7, "#y/队伍中玩家#R/"..玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称.."#Y/今日已完成过边境不能进入。")
             return
           end
        end




        角色处理类:扣除银子(玩家数据[id],800000000,"边境救援")
        发送数据(玩家数据[id].连接id, 3006, "66")
        任务控制类:开启边境救援(id)
        地图处理类:Jump(id,7099,112,13)



    elseif 事件 == "我想听故事" and 地图1 == 1001 and 名称 == "说书先生" then


            local 发送信息 = {}

            if  活动数据.本日副本[id]==nil then
                活动数据.本日副本[id] = {地府救猴王 =10,三打白骨精 =12,玄武门之变 =10,神魔前线 =16}
            end


              发送信息 = 活动数据.本日副本[id]

            发送数据(玩家数据[id].连接id,60223,发送信息)


     elseif 事件 == "增加镇魔次数"  and 名称 == "广成子" then


         local 找到物品 = false
         local 特赦格子 = 0
         for n = 1, 80 do
           if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "摸金符" then
           找到物品 = true
           特赦格子=n
               break
           end
         end
         if 找到物品 == false then
              发送数据(玩家数据[id].连接id, 20, {"广成子","太上老君","你身上没有摸金符"})
               return
         elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 3 then
              发送数据(玩家数据[id].连接id, 20, {"广成子","太上老君","你身上摸金符数量不够,需要3个摸金符"})
               return
         else
           道具处理类:RemoveItems( 玩家数据[id],特赦格子, "摸金符",3)
            玩家数据[id].角色.额外镇魔 = 玩家数据[id].角色.额外镇魔 + 6
             发送数据(玩家数据[id].连接id, 20, {"广成子","太上老君","#Y扣除#R3#Y个摸金符，镇魔次数增加#R1#Y次,您当前额外镇魔次数为：#R"..math.floor(玩家数据[id].角色.额外镇魔/6)})
          end
     elseif 事件 == "增加全队镇魔次数(25亿银子)"  and 名称 == "广成子" then

        if 玩家数据[id].队伍 == 0 then
          发送数据(玩家数据[id].连接id, 7,"#Y/请组队点击！")
          return
        end

         local 物品数量 = #队伍数据[玩家数据[id].队伍].队员数据


        if 银子检查(id,500000000*物品数量) ==false then
              发送数据(玩家数据[id].连接id, 20, {"广成子","太上老君","银子不足需要"..(500000000*物品数量).."银子"})
               return
         else
           角色处理类:扣除银子(玩家数据[id],500000000*物品数量 ,"镇魔卫道")


          for n = 1, #队伍数据[玩家数据[id].队伍].队员数据  do
             local 临时id  = 队伍数据[玩家数据[id].队伍].队员数据[n]
            玩家数据[临时id].角色.额外镇魔 = 玩家数据[临时id].角色.额外镇魔 + 6
             发送数据(玩家数据[临时id].连接id, 20, {"广成子","太上老君","#Y队长扣除#R"..((500000000*物品数量)/100000000).."#Y亿银子，为队伍全员每人增加#R1#Y/次额外镇魔,您当前额外镇魔次数为：#R"..math.floor(玩家数据[临时id].角色.额外镇魔/6)})
            end
          end
    elseif 事件 == "增加全队镇魔次数(15个摸金符)"  and 名称 == "广成子" then

        if 玩家数据[id].队伍 == 0 then
          发送数据(玩家数据[id].连接id, 7,"#Y/请组队点击！")
          return
        end
         local 找到物品 = false
         local 特赦格子 = 0
         local 物品数量 = #队伍数据[玩家数据[id].队伍].队员数据
         for n = 1, 80 do
           if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "摸金符" then
           找到物品 = true
           特赦格子=n
               break
           end
         end
         if 找到物品 == false then
              发送数据(玩家数据[id].连接id, 20, {"广成子","太上老君","你身上没有摸金符"})
               return
         elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 物品数量*3 then
              发送数据(玩家数据[id].连接id, 20, {"广成子","太上老君","你身上摸金符数量不够,需要"..(物品数量*3).."个摸金符"})
               return
         else
           道具处理类:RemoveItems( 玩家数据[id],特赦格子, "摸金符",物品数量*3)


          for n = 1, #队伍数据[玩家数据[id].队伍].队员数据  do
             local 临时id  = 队伍数据[玩家数据[id].队伍].队员数据[n]
            玩家数据[临时id].角色.额外镇魔 = 玩家数据[临时id].角色.额外镇魔 + 6
             发送数据(玩家数据[临时id].连接id, 20, {"广成子","太上老君","#Y队长扣除#R"..(物品数量*3).."#Y个摸金符，为队伍全员每人增加#R1#Y/次额外镇魔,您当前额外镇魔次数为：#R"..math.floor(玩家数据[临时id].角色.额外镇魔/6)})
            end
          end

    elseif 事件 == "开始镇魔行动" and 地图1 == 1001 and 名称 == "广成子" then


            local 发送信息 = {}



            if  活动数据.本日镇魔[id]==nil then
                活动数据.本日镇魔[id] = {当前 =0,耗时 =86400,开始=0,结束=0,中奖={[888968]=0,[888969]=0,[888970]=0,[888971]=0,[888972]=0}}
            end
              发送信息.累计镇魔 = 玩家数据[id].角色.累计镇魔

              发送信息.本日镇魔 = 活动数据.本日镇魔[id]

              发送信息.镇魔声望 = 玩家数据[id].角色.镇魔声望.累计


            发送数据(玩家数据[id].连接id,6020,发送信息)




    elseif 事件 == "领取称谓" and 地图1 == 1001 and 名称 == "广成子" then

           local 领取成功 = false
            if  玩家数据[id].角色.镇魔声望.累计 > 800 then
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") then
                          角色处理类:回收称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") ==false then
                      领取成功 = true
                        角色处理类:添加称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
            elseif  玩家数据[id].角色.镇魔声望.累计 > 300 then
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") then
                          角色处理类:回收称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰")  ==false  then
                     领取成功 = true
                       角色处理类:添加称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                        角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
            elseif  玩家数据[id].角色.镇魔声望.累计 > 100 then
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") then
                          角色处理类:回收称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") ==false  then
                    领取成功 = true
                       角色处理类:添加称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                        角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
            elseif  玩家数据[id].角色.镇魔声望.累计 > 50 then
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") then
                          角色处理类:回收称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙")  ==false then
                    领取成功 = true
                       角色处理类:添加称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                        角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
            elseif  玩家数据[id].角色.镇魔声望.累计 > 15 then
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") then
                          角色处理类:回收称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚")  ==false then
                    领取成功 = true
                       角色处理类:添加称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                        角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
            elseif  玩家数据[id].角色.镇魔声望.累计 > 10 then
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") ==false then
                      领取成功 = true
                       角色处理类:添加称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                        角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
            else
                发送数据(玩家数据[id].连接id, 7, "#y/当前镇魔声望太低,无法领取称谓")
                领取成功 = true
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔勇士") then
                        角色处理类:回收称谓(玩家数据[id],"镇魔勇士")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔金刚") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔金刚")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔大仙") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔大仙")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·凌云登峰") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·凌云登峰")
                    end
                    if 角色处理类:检查称谓(玩家数据[id],"镇魔·傲视乾坤") then
                       角色处理类:回收称谓(玩家数据[id],"镇魔·傲视乾坤")
                    end
                    return
            end
            if 领取成功 == false then
            发送数据(玩家数据[id].连接id, 7, "#y/你已领取当前镇魔威望对应的称谓")
            end
            ---------------------------------------------------------------------

	elseif 事件 == "查看PK次数" and 地图1 == 1001 and 名称 == "华山论剑" then
        local 临时月 =os.date("%Y-%m-%d-%H:%M:%S",os.time())
        if 天梯匹配[id]==nil then
            天梯匹配[id]={id=id,名称=玩家数据[id].角色.名称,华山论剑积分=0,华山论剑累计积分=0,门派=玩家数据[id].角色.门派,等级=玩家数据[id].角色.等级,匹配=0,连胜次数=0,临时次数=0}
        end
        发送数据(玩家数据[id].连接id,20,{"御林军","李将军","玩家 #Y/"..玩家数据[id].角色.名称.."(ID"..id..") #W/您当前已PK #Y/" .. 天梯匹配[id].临时次数 .. "#W/ 次，还可以PK #Y/"..(50-天梯匹配[id].临时次数).." #W/次，您当前华山积分为 #Y/"..天梯匹配[id].华山论剑累计积分.." #W/分,参与次数>=30次的玩家，请在活动结束后凭此截图找GM领取参与奖,当前系统时间为 #R/"..临时月 })
	elseif 事件 == "查看排行榜" and 地图1 == 1001 and 名称 == "华山论剑" then
        if 华山论剑开关 then
            发送数据(玩家数据[id].连接id, 7, "#y/请在活动结束后查看")
            return
        else
            游戏活动类:刷新华山论剑排行(id)
        end
        elseif 事件 == "打开挂机" and 地图1 == 1001 and 名称 == "挂机刷怪" then


        local sz=道具处理类:寻找道具(user,{"飞行符"})
        if #sz==0 then
            发送数据(玩家数据[id].连接id,7, "#G/飞行符#y/哪去了？")
            return
        end
           if  玩家数据[id].角色.内挂系统.自动刷怪==false then
    玩家数据[id].角色.内挂系统.自动刷怪=true
  else
    玩家数据[id].角色.内挂系统.自动刷怪=false
  end
    local 发送信息 ={}
    发送信息.怪物设置={[1]="★",[2]="★★",[3]="★★★",[4]="★★★★",[5]="★★★★★",[6]="新手难度",[7]="≮五万年≯植物系魂兽",[8]="≮十万年≯植物系魂兽",[9]="≮五十万年≯植物系魂兽"}
    发送信息.内挂=玩家数据[id].角色.内挂系统
    发送信息.回收设置=玩家数据[id].角色.回收开关
    发送数据(玩家数据[id].连接id,1045,发送信息)
 地图处理类:跳转处理(id,{1001,360*20,200*20})
       ---------------------------------
       elseif 事件 == "查看排行榜"  and 名称 == "吆五喝六" then

       if 全服BOSS开关  then
          发送数据(玩家数据[id].连接id, 7, "#y/请在活动结束后查看")
       return
       else
       游戏活动类:刷新全服BOSS排行1(id)
       end
        ----------------------------------------
        elseif 事件 == "查看排行榜" and 地图1 == 1001 and 名称 == "门派闯关使" then

       if 门派闯关开关 then
          发送数据(玩家数据[id].连接id, 7, "#y/请在活动结束后查看")
       return
       else

       发送数据(玩家数据[id].连接id,60199,门派发送信息)
       end
 elseif 事件 == "查看排行榜" and 地图1 == 1001 and 名称 == "广成子" then

        发送数据(玩家数据[id].连接id,6021,Ranking.数据排行.累冲排行)
        elseif 事件 == "积分兑换" and 地图1 == 1001 and 名称 == "广成子" then
         商店处理类:GetNpcShop1(id,40)
        -------

    elseif 事件 == "确认扩张"and 名称 == "商会总管" then
        商会处理类:扩张柜台(id)
    elseif 事件 == "我要扩张"and 名称 == "商会总管" then
        商会处理类:扩张唤兽柜台(id)
    elseif 事件 == "购买物品店铺" and 地图1 == 1001 and 名称 == "商会总管" then
        商会处理类:购买物品商铺(id)
    elseif 事件 == "购买唤兽店铺" and 地图1 == 1001 and 名称 == "商会总管" then
        商会处理类:购买唤兽商铺(id)
    elseif 事件 == "确认购买(消耗2000W银子)" and 地图1 == 1001 and 名称 == "商会总管" then
        商会处理类:购买商铺(id)
    elseif 事件 == "我来买些东西" and 地图1 == 1001 and 名称 == "商会总管" then
        商会处理类:获取商会商铺信息(id)
    elseif 事件 == "我想申请开个店" and 地图1 == 1001 and 名称 == "商会总管" then
        发送数据(玩家数据[id].连接id,20,{"商会总管","商会总管"," 你可以在我这里花费1000万两银子购买一间商铺，进行售卖东西。",{"购买物品店铺","购买唤兽店铺","我再想想"}})
    elseif 事件 == "我要进入我的商店" and 地图1 == 1001 and 名称 == "商会总管" then
        发送数据(玩家数据[id].连接id,20,{"商会总管","商会总管"," 你要管理那一间店铺？",{"物品店铺","唤兽店铺","取消"}})
    elseif 事件 == "物品店铺" and 地图1 == 1001 and 名称 == "商会总管" then
        商会处理类:发送管理物品商铺(id)
    elseif 事件 == "唤兽店铺" and 地图1 == 1001 and 名称 == "商会总管" then
        商会处理类:发送管理唤兽商铺(id)
    elseif 事件 == "进入奉天神殿" and 地图1 == 1001 and 名称 == "圣殿使者" then
        local 奉天神殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "奉天神殿进入次数")+0
        local 万妖大殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "万妖大殿进入次数")+0
        local 月卡会员加成次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "月卡会员加成次数")+0
        local 进入所需充值点=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "进入所需充值点")+0
        local 加成=0
        if 玩家数据[id].角色.VIP月卡 == nil then
           玩家数据[id].角色.VIP月卡={次数=0,领取=0}
        end
        if 充值点数据[id] == nil then
           充值点数据[id] = 0
        end
        if 挑战神殿数据[id]==nil then
            if 玩家数据[id].角色.VIP月卡.次数 > 0 then
                加成 = 加成 +月卡会员加成次数
            end
            挑战神殿数据[id]={奉天神殿=奉天神殿进入次数+加成,万妖大殿=万妖大殿进入次数+加成}
        end
        wb = "#Y进入奉天神殿需要#R"..进入所需充值点.."#Y点充值点,每天12点重置进入次数，月卡会员每天增加#R"..月卡会员加成次数.."#Y次，你当前剩余进入奉天神殿次数为：#R"..挑战神殿数据[id].奉天神殿.."#Y次"
        local xx = {"我确定要进入奉天神殿","我只是看看"}
        发送数据(玩家数据[id].连接id,20,{"进阶云游火","圣殿使者",wb,xx})
    elseif 事件 == "我确定要进入奉天神殿" and 地图1 == 1001 and 名称 == "圣殿使者" then
        local 奉天神殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "奉天神殿进入次数")+0
        local 万妖大殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "万妖大殿进入次数")+0
        local 月卡会员加成次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "月卡会员加成次数")+0
        local 进入所需充值点=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "进入所需充值点")+0
        if 玩家数据[id].队伍 == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/此任务最少需要1人组队完成")
        elseif #队伍数据[玩家数据[id].队伍].队员数据 < 1 then
            发送数据(玩家数据[id].连接id, 7, "#y/此任务最少需要1人组队完成")
        elseif 取队伍符合等级(id, 69) == false then
            广播队伍消息(id, 7, "#y/角色等级达到69级才可领取此任务")
        elseif 充值点数据[id] < 进入所需充值点 then
           发送数据(玩家数据[id].连接id,7,"#Y/你的充值点不足，无法进入奉天神殿")
        else
            充值点数据[id] = 充值点数据[id] - 进入所需充值点
            for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
                local 加成=0
                if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.VIP月卡 == nil then
                   玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.VIP月卡={次数=0,领取=0}
                end
                if 挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]]==nil then
                   if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.VIP月卡.次数 > 0 then
                       加成 = 加成 +月卡会员加成次数
                   end
                   挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]]={奉天神殿=奉天神殿进入次数+加成,万妖大殿=万妖大殿进入次数+加成}
                end
                if 挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]].奉天神殿 <= 0 then
                    广播队伍消息(id, 7, "#y/" .. 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称 .. "进入次数已经用尽，无法进去")
                    return 0
                end
                挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]].奉天神殿 = 挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]].奉天神殿 - 1
            end
            地图处理类:Jump(id, 6005, 61, 24)
         end
    elseif 事件 == "进入万妖大殿" and 地图1 == 1001 and 名称 == "圣殿使者" then
        local 奉天神殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "奉天神殿进入次数")+0
        local 万妖大殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "万妖大殿进入次数")+0
        local 月卡会员加成次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "月卡会员加成次数")+0
        local 进入所需充值点=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "进入所需充值点")+0
        local 加成=0
        if 玩家数据[id].角色.VIP月卡 == nil then
           玩家数据[id].角色.VIP月卡={次数=0,领取=0}
        end
        if 充值点数据[id] == nil then
           充值点数据[id] = 0
        end
        if 挑战神殿数据[id]==nil then
            if 玩家数据[id].角色.VIP月卡.次数 > 0 then
                加成 = 加成 +月卡会员加成次数
            end
            挑战神殿数据[id]={奉天神殿=奉天神殿进入次数+加成,万妖大殿=万妖大殿进入次数+加成}
        end
        wb = "#Y进入奉天神殿需要#R"..进入所需充值点.."#Y点充值点,每天12点重置进入次数，月卡会员每天增加#R"..月卡会员加成次数.."#Y次，你当前剩余进入奉天神殿次数为：#R"..挑战神殿数据[id].万妖大殿.."#Y次"
        local xx = {"我确定要进入万妖大殿","我只是看看"}
        发送数据(玩家数据[id].连接id,20,{"进阶云游火","圣殿使者",wb,xx})
    elseif 事件 == "我确定要进入万妖大殿" and 地图1 == 1001 and 名称 == "圣殿使者" then
        local 奉天神殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "奉天神殿进入次数")+0
        local 万妖大殿进入次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "万妖大殿进入次数")+0
        local 月卡会员加成次数=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "月卡会员加成次数")+0
        local 进入所需充值点=f函数.读配置(ServerDirectory..[[配置文件\神殿配置.txt]], "神殿配置", "进入所需充值点")+0
        if 玩家数据[id].队伍 == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/此任务最少需要1人组队完成")
        elseif #队伍数据[玩家数据[id].队伍].队员数据 < 1 then
            发送数据(玩家数据[id].连接id, 7, "#y/此任务最少需要1人组队完成")
        elseif 取队伍符合等级(id, 69) == false then
            广播队伍消息(id, 7, "#y/角色等级达到69级才可领取此任务")
        elseif 充值点数据[id] < 进入所需充值点 then
           发送数据(玩家数据[id].连接id,7,"#Y/你的充值点不足，无法进入奉天神殿")
        else
            充值点数据[id] = 充值点数据[id] - 进入所需充值点
            for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
                local 加成=0
                if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.VIP月卡 == nil then
                   玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.VIP月卡={次数=0,领取=0}
                end
                if 挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]]==nil then
                   if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.VIP月卡.次数 > 0 then
                       加成 = 加成 +月卡会员加成次数
                   end
                   挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]]={奉天神殿=奉天神殿进入次数+加成,万妖大殿=万妖大殿进入次数+加成}
                end
                if 挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]].万妖大殿 <= 0 then
                    广播队伍消息(id, 7, "#y/" .. 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称 .. "进入次数已经用尽，无法进去")
                    return 0
                end
                挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]].万妖大殿 = 挑战神殿数据[队伍数据[玩家数据[id].队伍].队员数据[n]].万妖大殿 - 1
            end
            地图处理类:Jump(id, 6006, 61, 24)
         end

    elseif 事件 == "我来屠你" and 地图1 == 6005 and 名称 == "奉天神使" then
        战斗准备类:进入处理(id, 889100, "66", 1)
    elseif 事件 == "别狂看招" and 地图1 == 6006 and 名称 == "万妖宫主" then
        战斗准备类:进入处理(id, 889101, "66", 1)

    elseif 事件 == "我要参加比武大乱斗" and 地图1 == 1001 and 名称 == "比武大乱斗" then
        if 玩家数据[id].角色.等级 < 69 then
            发送数据(玩家数据[id].连接id, 7, "#y/等级达到69级的玩家才可以参加此活动")
            return 0
        elseif 比武大乱斗进场开关 == false then
            发送数据(玩家数据[id].连接id, 7, "#y/进场时间为每日20.50-21点")
            return 0
        elseif 银子检查(id,5000000) == false then
            发送数据(玩家数据[id].连接id, 7, "银子不足500W两无法进入大乱斗")
            return 0
        else
            角色处理类:扣除银子(玩家数据[id],5000000, "比武大乱斗")
            地图处理类:Jump(id, 6004, 61, 24)
        end
    elseif 事件 == "领取大乱斗奖励" and 地图1 == 1001 and 名称 == "比武大乱斗" then
            道具处理类:比武大乱斗奖励(id)

	elseif 事件 == "送我进去" and 地图1 == 1001 and 名称 == "兰虎" then
		if 玩家数据[id].角色.等级 < 60 then
			发送数据(玩家数据[id].连接id, 7, "#y/等级达到60级的玩家才可以参加此活动")
			return 0
		elseif 比武大会进场开关 == false then
			发送数据(玩家数据[id].连接id, 7, "#y/进场时间为每日19.50-20点")
			return 0
		else
			if 玩家数据[id].角色.等级 < 70 then
				self.传送编号 = 6001
			elseif 玩家数据[id].角色.等级 < 110 then
				self.传送编号 = 6002
			else
				self.传送编号 = 6003
			end
			地图处理类:Jump(id, self.传送编号, 61, 24)
		end
	elseif 事件 == "领取奖励" and 地图1 == 1001 and 名称 == "兰虎" then
		道具处理类:比武奖励(id)
	elseif 事件 == "兑换物品" and 地图1 == 1001 and 名称 == "兰虎" then
        发送数据(玩家数据[id].连接id,20,{"兰虎","兰虎","现在可以在比武积分商城处购买"})

	elseif 事件 == "协助抓捕盗贼" and 地图1 == 1001 and 名称 == "御林军左统领" then
        if 飞贼开关 then
    		if 玩家数据[id].队伍 == 0 then
    			发送数据(玩家数据[id].连接id, 7, "#y/此任务最少需要三人组队完成")
    		elseif #队伍数据[玩家数据[id].队伍].队员数据 < 1 and DebugMode== false then
    			发送数据(玩家数据[id].连接id, 7, "#y/此任务最少需要三人组队完成")
    		elseif 取队伍符合等级(id, 60) == false then
    			广播队伍消息(id, 7, "#y/角色等级达到60级才可领取此任务")
    		else
    			for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
                    if 活动次数数据[队伍数据[玩家数据[id].队伍].队员数据[n]] == nil then
                        活动次数数据[队伍数据[玩家数据[id].队伍].队员数据[n]] = {飞贼次数=0,门派次数=0}
                    end
                    if 角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"飞贼") ~= 0 then
                        广播队伍消息(id, 7, "#y/" .. 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称 .. "已经领取过此任务了")
                        return 0
                    elseif 活动次数数据[队伍数据[玩家数据[id].队伍].队员数据[n]].飞贼次数 >= 5 then
                        广播队伍消息(id, 7, "#y/" .. 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称 .. "已经完成五轮任务无法在继续领取此任务了")
                        return 0
                    end

                end
                任务控制类:设置皇宫飞贼任务(id)
            end
        else
            发送数据(玩家数据[id].连接id, 7, "#y/皇宫飞贼活动还还未开启，请关注游戏通知")
		end
	elseif 事件 == "取消任务" and 地图1 == 1001 and 名称 == "御林军左统领" then
        if 角色处理类:GetTaskID(玩家数据[id],"飞贼") == 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/你尚未领取此任务")
			return 0
		else
			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"飞贼"))
            玩家数据[id].角色.飞贼次数 =0
			发送数据(玩家数据[id].连接id, 7, "#y/你取消了飞贼任务")
		end
	elseif 事件 == "加入帮派" and 地图1 == 1001 and 名称 == "帮派总管" then
        self.发送信息 = {}
		for n, v in pairs(帮派数据) do
			if 帮派数据[n] ~= nil and n ~= "编号" then
				self.发送信息[#self.发送信息 + 1] = {
					编号 = n,
					名称 = 帮派数据[n].名称,
					帮主 = 帮派数据[n].现任帮主.名称,
					宗旨 = 帮派数据[n].宗旨
				}
			end
		end
		发送数据(玩家数据[id].连接id, 20019, self.发送信息)
	elseif 事件 == "送我回帮" and 地图1 == 1001 and 名称 == "帮派总管" then
		if 玩家数据[id].角色.帮派 == nil or 帮派数据[玩家数据[id].角色.帮派] == nil then
			发送数据(玩家数据[id].连接id, 7, "#y/请先加入一个帮派")
			return 0
		elseif 玩家数据[id].队伍 ~= 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/请先脱离队伍")
			return 0
		else
			玩家数据[id].帮派进入方式 = 1
			玩家数据[id].帮派进入编号 = 玩家数据[id].角色.帮派
			地图处理类:Jump(id, 1875, 46, 35)
		end
	elseif 事件 == "消耗2000点仙玉创建帮派" and 地图1 == 1001 and 名称 == "帮派总管" then
        发送数据(玩家数据[id].连接id, 15, {"帮派名称","请输入你需要更改的名字，需要消耗2000仙玉"})
	elseif 事件 == "创建帮派" and 地图1 == 1001 and 名称 == "帮派总管" then
        发送数据(玩家数据[id].连接id,20,{"蒋大全","帮派总管"," 你可以在我这里花费2000点仙玉创建一个帮派。本服最多允许6个帮派同时存在，超过6个则无法创建帮派。当帮派安定值为0时，帮派规模会下降1级。若已是1级规模的帮派则会直接解散该帮派。请选择你要进行的操作：",{"消耗2000点仙玉创建帮派","我再想想"}})


	elseif 事件 == "领取官职任务" and 地图1 == 1001 and 名称 == "李将军" then
        任务控制类:设置官职任务(id)
	elseif 事件 == "领取俸禄" and 地图1 == 1001 and 名称 == "李将军" then
        local gz = ""
           	if  玩家数据[id].角色.官职贡献度 > 9599 then
                gz = [[可领取俸禄为仙玉:#G/200#W/,可以领取称谓:"皇帝"]]
			elseif  玩家数据[id].角色.官职贡献度 > 4849 then
                gz = [[可领取俸禄为仙玉:#G/150#W/,可以领取称谓:"辅佐王"]]
			elseif  玩家数据[id].角色.官职贡献度 > 2449 then
                gz = [[可领取俸禄为仙玉:#G/100#W/,可以领取称谓:"郡王"]]
			elseif  玩家数据[id].角色.官职贡献度 > 1249 then
                gz = [[可领取俸禄为仙玉:#G/50#W/,可以领取称谓:"一品膘骑大将军"]]
			elseif  玩家数据[id].角色.官职贡献度 > 599 then
                gz = [[可领取俸禄为仙玉:#G/30#W/,可以领取称谓:"二品辅国大将军"]]
			elseif  玩家数据[id].角色.官职贡献度 > 299 then
                gz = [[可领取俸禄为仙玉:#G/20#W/,可以领取称谓:"三品归德将军"]]
            else
                gz ="#W/当前没有官职,无法领取官职俸禄"
            end
            发送数据(玩家数据[id].连接id,20,{"御林军","李将军","你可以在我这里领取俸禄。俸禄两次领取的时间不能低于24小时，根据官职贡献度可换取对应的仙玉。且每次领取俸禄都将扣除当前10%的官职贡献度。你当前拥有#G/" .. 玩家数据[id].角色.官职贡献度 .. "#W/点官职贡献度。" .. gz,{"确定领取俸禄","我再想想"}})

    elseif 事件 == "确定领取俸禄" and 地图1 == 1001 and 名称 == "李将军" then
    	if 玩家数据[id].角色.官职贡献度 <= 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/你在我这里没有可领取的俸禄")
		elseif 玩家数据[id].角色.俸禄时间 ~= nil and os.time() - 玩家数据[id].角色.俸禄时间 < 86400 then
			发送数据(玩家数据[id].连接id, 7, "#y/你下次领取俸禄的时间为" .. os.date("[%Y年%m月%d日%X]",玩家数据[id].角色.俸禄时间 + 86400) .. "")
		else
			玩家数据[id].角色.俸禄时间 = os.time()
			if  玩家数据[id].角色.官职贡献度 > 9599 then
		        角色处理类:添加仙玉(玩家数据[id],200,"官职工资")
		            if 角色处理类:检查称谓(玩家数据[id],"辅佐王") then
		         	      角色处理类:回收称谓(玩家数据[id],"辅佐王")
		         	end
					if 角色处理类:检查称谓(玩家数据[id],"郡王") then
                       角色处理类:回收称谓(玩家数据[id],"郡王")
					end
					if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") then
                       角色处理类:回收称谓(玩家数据[id],"一品膘骑大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军") then
                       角色处理类:回收称谓(玩家数据[id],"二品辅国大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") then
                       角色处理类:回收称谓(玩家数据[id],"三品归德将军")
					end
		            if 角色处理类:检查称谓(玩家数据[id],"皇帝") ==false then
		         	    角色处理类:添加称谓(玩家数据[id],"皇帝")
		         	end
			elseif  玩家数据[id].角色.官职贡献度 > 4849 then
                角色处理类:添加仙玉(玩家数据[id],150,"官职工资")
                if 角色处理类:检查称谓(玩家数据[id],"辅佐王") ==false  then
                    角色处理类:添加称谓(玩家数据[id],"辅佐王")
		        end
				if 角色处理类:检查称谓(玩家数据[id],"郡王") then
                    角色处理类:回收称谓(玩家数据[id],"郡王")
				end
				if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") then
                    角色处理类:回收称谓(玩家数据[id],"一品膘骑大将军")
				end
				if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军") then
                    角色处理类:回收称谓(玩家数据[id],"二品辅国大将军")
				end
				if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") then
                    角色处理类:回收称谓(玩家数据[id],"三品归德将军")
				end
                if 角色处理类:检查称谓(玩家数据[id],"皇帝") then
                    角色处理类:回收称谓(玩家数据[id],"皇帝")
                end
			elseif  玩家数据[id].角色.官职贡献度 > 2449 then
                 角色处理类:添加仙玉(玩家数据[id],100,"官职工资")
                   if 角色处理类:检查称谓(玩家数据[id],"辅佐王") then
		         	      角色处理类:回收称谓(玩家数据[id],"辅佐王")
		         	end
					if 角色处理类:检查称谓(玩家数据[id],"郡王")==false  then
                       角色处理类:添加称谓(玩家数据[id],"郡王")
					end
					if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") then
                       角色处理类:回收称谓(玩家数据[id],"一品膘骑大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军") then
                       角色处理类:回收称谓(玩家数据[id],"二品辅国大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") then
                       角色处理类:回收称谓(玩家数据[id],"三品归德将军")
					end
		            if 角色处理类:检查称谓(玩家数据[id],"皇帝") then
		         	    角色处理类:回收称谓(玩家数据[id],"皇帝")
		         	end
			elseif  玩家数据[id].角色.官职贡献度 > 1249 then
                 角色处理类:添加仙玉(玩家数据[id],50,"官职工资")
                 if 角色处理类:检查称谓(玩家数据[id],"辅佐王") then
		         	      角色处理类:回收称谓(玩家数据[id],"辅佐王")
		         	end
					if 角色处理类:检查称谓(玩家数据[id],"郡王") then
                       角色处理类:回收称谓(玩家数据[id],"郡王")
					end
					if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") ==false then
                       角色处理类:添加称谓(玩家数据[id],"一品膘骑大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军") then
                       角色处理类:回收称谓(玩家数据[id],"二品辅国大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") then
                       角色处理类:回收称谓(玩家数据[id],"三品归德将军")
					end
		            if 角色处理类:检查称谓(玩家数据[id],"皇帝") then
		         	    角色处理类:回收称谓(玩家数据[id],"皇帝")
		         	end
			elseif  玩家数据[id].角色.官职贡献度 > 599 then
                 角色处理类:添加仙玉(玩家数据[id],30,"官职工资")
                 if 角色处理类:检查称谓(玩家数据[id],"辅佐王") then
		         	      角色处理类:回收称谓(玩家数据[id],"辅佐王")
		         	end
					if 角色处理类:检查称谓(玩家数据[id],"郡王") then
                       角色处理类:回收称谓(玩家数据[id],"郡王")
					end
					if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") then
                       角色处理类:回收称谓(玩家数据[id],"一品膘骑大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军")==false then
                       角色处理类:添加称谓(玩家数据[id],"二品辅国大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") then
                       角色处理类:回收称谓(玩家数据[id],"三品归德将军")
					end
		            if 角色处理类:检查称谓(玩家数据[id],"皇帝")  then
		         	    角色处理类:回收称谓(玩家数据[id],"皇帝")
		         	end
			elseif  玩家数据[id].角色.官职贡献度 > 299 then
                 角色处理类:添加仙玉(玩家数据[id],20,"官职工资")
                 if 角色处理类:检查称谓(玩家数据[id],"辅佐王") then
		         	      角色处理类:回收称谓(玩家数据[id],"辅佐王")
		         	end
					if 角色处理类:检查称谓(玩家数据[id],"郡王") then
                       角色处理类:回收称谓(玩家数据[id],"郡王")
					end
					if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") then
                       角色处理类:回收称谓(玩家数据[id],"一品膘骑大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军") then
                       角色处理类:回收称谓(玩家数据[id],"二品辅国大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") ==false then
                       角色处理类:添加称谓(玩家数据[id],"三品归德将军")
					end
		            if 角色处理类:检查称谓(玩家数据[id],"皇帝")  then
		         	    角色处理类:回收称谓(玩家数据[id],"皇帝")
		         	end
            else
             	发送数据(玩家数据[id].连接id, 7, "#y/当前没有官职,无法领取官职俸禄")
             	if 角色处理类:检查称谓(玩家数据[id],"辅佐王") then
		         	      角色处理类:回收称谓(玩家数据[id],"辅佐王")
		         	end
					if 角色处理类:检查称谓(玩家数据[id],"郡王") then
                       角色处理类:回收称谓(玩家数据[id],"郡王")
					end
					if 角色处理类:检查称谓(玩家数据[id],"一品膘骑大将军") then
                       角色处理类:回收称谓(玩家数据[id],"一品膘骑大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"二品辅国大将军") then
                       角色处理类:回收称谓(玩家数据[id],"二品辅国大将军")
					end
					if 角色处理类:检查称谓(玩家数据[id],"三品归德将军") then
                       角色处理类:回收称谓(玩家数据[id],"三品归德将军")
					end
		            if 角色处理类:检查称谓(玩家数据[id],"皇帝")  then
		         	    角色处理类:回收称谓(玩家数据[id],"皇帝")
		         	end
             	    return
		    end
			玩家数据[id].角色.官职贡献度 = math.floor(玩家数据[id].角色.官职贡献度 * 0.95)
			发送数据(玩家数据[id].连接id, 7, "#y/你领取了本日俸禄")
		end
	elseif 事件 == "取消官职任务" and 地图1 == 1001 and 名称 == "李将军" then
        发送数据(玩家数据[id].连接id,20,{"御林军","李将军","在领取任务5分钟后，你可以在我这里取消任务。取消任务需要扣除2点官职贡献度。您确定要取消任务吗？",{"确定取消官职任务","我再想想"}})
	elseif 事件 == "确定取消官职任务" and 地图1 == 1001 and 名称 == "李将军" then
		if 角色处理类:GetTaskID(玩家数据[id],"官职") == 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/你没有在我这里领取官职任务")
		elseif os.time() - 任务数据[角色处理类:GetTaskID(玩家数据[id],"官职")].起始 < 300 then
			发送数据(玩家数据[id].连接id, 7, "#y/" .. math.floor((300 - (os.time() - 任务数据[角色处理类:GetTaskID(玩家数据[id],"官职")].起始)) / 60) .. "分钟后才可取消此任务")
		else
			if 任务数据[角色处理类:GetTaskID(玩家数据[id],"官职")].分类 ~= 3 then
				地图处理类:移除单位(任务数据[角色处理类:GetTaskID(玩家数据[id],"官职")].地图编号, 角色处理类:GetTaskID(玩家数据[id],"官职"))
			end

			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"官职"))

			任务数据[角色处理类:GetTaskID(玩家数据[id],"官职")] = nil
			玩家数据[id].角色.官职贡献度 = 玩家数据[id].角色.官职贡献度 - 2

			if 玩家数据[id].角色.官职贡献度 <= 0 then
				玩家数据[id].角色.官职贡献度 = 0
			end

			玩家数据[id].角色.官职任务次数 = 1

			发送数据(玩家数据[id].连接id, 7, "#y/您的任务已经取消了")
		end
	elseif 事件 == "找到了" and 地图1 == 1001 and 名称 == "李将军" then
		发送数据(玩家数据[id].连接id, 3011, {名称="李将军",id = 角色处理类:GetTaskID(玩家数据[id],"官职"),道具 = 道具处理类:索要道具2(id, "包裹")})

    elseif 事件 == "我要用25个神兜兜+随机神兽兑换" and 地图1 == 1001 and 名称 == "袁天罡"   then
        local xx ={}
        for i=1,#玩家数据[id].召唤兽.数据 do
           if 玩家数据[id].召唤兽.数据[i].类型=="神兽" then
            table.insert(xx,i..'.'..玩家数据[id].召唤兽.数据[i].名称)
           end
        end
        table.insert(xx,"我随便看看")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","请选择你要替换的神兽",xx,"兑换神兽"})

    elseif 事件 == "我要用99个神兜兜兑换神兽" and 地图1 == 1001 and 名称 == "袁天罡"   then
        local 找到物品 = false
        local 特赦格子 = 0
        for n = 1, 80 do
            if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "神兜兜" then
                找到物品 = true
                特赦格子=n
                break
            end
        end
            if 找到物品 == false then
                发送数据(玩家数据[id].连接id, 20, {"诗中仙","袁天罡","你身上没有神兜兜呀"})
            elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 99 then
                发送数据(玩家数据[id].连接id, 20, {"诗中仙","袁天罡","你身上神兜兜数量不够"})
            elseif #玩家数据[id].召唤兽.数据 >= 玩家数据[id].召唤兽.数据.召唤兽上限 then
                发送数据(玩家数据[id].连接id, 7, "#y/你当前可携带的召唤兽已达上限，无法打开礼包")

            else
                道具处理类:RemoveItems(玩家数据[id],特赦格子,"神兜兜",99)
                local 随机神兽 ={"超级六耳猕猴-法术型","超级神鸡-法术型","超级玉兔-法术型","超级神猴-法术型","超级神龙-法术型","超级神羊-法术型","超级孔雀-法术型","超级灵狐-法术型","超级筋斗云-法术型","超级神鸡-物理型","超级玉兔-物理型","超级神猴-物理型","超级土地公公-物理型","超级神羊-物理型","超级六耳猕猴-物理型","超级神马-物理型","超级神马-法术型","超级孔雀-物理型","超级灵狐-物理型","超级筋斗云-物理型","超级神龙-物理型","超级麒麟-物理型","超级麒麟-法术型","超级大鹏-法术型","超级大鹏-物理型","超级神蛇-法术型","超级神蛇-物理型","超级赤焰兽-法术型","超级赤焰兽-物理型","超级白泽-法术型","超级白泽-物理型","超级灵鹿-法术型","超级灵鹿-物理型","超级大象-法术型","超级大象-物理型","超级金猴-法术型","超级金猴-物理型","超级大熊猫-法术型","超级大熊猫-物理型","超级泡泡-法术型","超级泡泡-物理型","超级神兔-法术型","超级神兔-物理型","超级神虎-法术型","超级神虎-物理型","超级神牛-法术型","超级神牛-物理型","超级海豚-法术型","超级海豚-物理型","超级人参娃娃-法术型","超级人参娃娃-物理型","超级青鸾-法术型","超级腾蛇-法术型","超级腾蛇-物理型","超级神狗-法术型","超级神鼠-法术型","超级神鼠-物理型","超级神猪-法术型","超级神猪-物理型","超级孙小圣-法术型","超级孙小圣-物理型","超级小白龙-物理型","超级猪小戒-物理型","超级飞天-物理型"}
                local 随机名称 = 随机神兽[math.random(1, #随机神兽)]
                table.insert(玩家数据[id].召唤兽.数据,AddPet(随机名称,"神兽"))
                玩家数据[id].召唤兽:刷新属性(#玩家数据[id].召唤兽.数据)
                发送数据(玩家数据[id].连接id, 7, "#y/恭喜你兑换到了"..随机名称)
                发送数据(玩家数据[id].连接id, 3006, "66")
            end

    elseif 事件 == "神兜兜相关" and 地图1 == 1001 and 名称 == "袁天罡"   then
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","您确定用99个“神兜兜”兑换一只神兽吗?特别提醒:可以用25个神兜兜兑换获得的随机神兽需要到对应的超级神兽。",{"我要用99个神兜兜兑换神兽","我要用25个神兜兜+随机神兽兑换"}})
    elseif 事件 == "前往剑冢" and 地图1 == 1001 and 名称 == "袁天罡"   then
        if 角色处理类:GetTaskID(玩家数据[id],"神器任务")==0  then
            发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你还有没有领取神器任务！"})
        elseif 任务数据[角色处理类:GetTaskID(玩家数据[id],"神器任务")].进程<5 then
            发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你还有没有做到这一步任务！"})
        else
            if 玩家数据[id].队伍~=0 then
                发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","请解散队伍以后再找我传送"})
            else
                地图处理类:跳转处理(id,{1217,65*20,91*20,true})
                发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","轩辕竟然真的想杀了陈潇然，上前质问轩辕！"})
            end
        end
         elseif 事件 == "转换宝石属性" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
        wb = "我这里可以给光芒石和红玛瑙转换属性(#Y你当前光芒石属性为:#R"..玩家数据[id].角色.宝石属性.光芒石.."#Y，当前红玛瑙属性为:#R"..玩家数据[id].角色.宝石属性.红玛瑙..")"
        local xx = {"光芒石转换速度","光芒石转换气血","红玛瑙转换灵力","红玛瑙转换防御","红玛瑙转换气血","红玛瑙转换伤害","我只是看看"}
         发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡",wb,xx})
  elseif 事件 == "光芒石转换速度" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
    if 玩家数据[id].角色.宝石属性.光芒石 == "速度" then
       发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的光芒石本身就是速度属性，无法进行转换"})
       return
    elseif 银子检查(id,10000000) then
        角色处理类:扣除银子(玩家数据[id],10000000, "宝石属性")
        玩家数据[id].角色.宝石属性.光芒石 = "速度"
        角色处理类:添加消费日志(玩家数据[id],"花费1000万银子转换宝石属性")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","恭喜你成功把光芒石转换为速度属性。"})
        角色处理类:刷新战斗属性(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","转换宝石属性需要1000W两银子!"})
    end
  elseif 事件 == "光芒石转换气血" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
    if 玩家数据[id].角色.宝石属性.光芒石 == "气血" then
       发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的光芒石本身就是气血属性，无法进行转换"})
       return
    elseif 银子检查(id,10000000) then
        角色处理类:扣除银子(玩家数据[id],10000000, "宝石属性")
        玩家数据[id].角色.宝石属性.光芒石 = "气血"
        角色处理类:添加消费日志(玩家数据[id],"花费1000万银子转换宝石属性")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","恭喜你成功把光芒石转换为气血属性。"})
        角色处理类:刷新战斗属性(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","转换宝石属性需要1000W两银子!"})
    end
  elseif 事件 == "红玛瑙转换灵力" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
    if 玩家数据[id].角色.宝石属性.红玛瑙 == "灵力" then
       发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的红玛瑙本身就是灵力属性，无法进行转换"})
       return
    elseif 银子检查(id,10000000) then
        角色处理类:扣除银子(玩家数据[id],10000000, "宝石属性")
        玩家数据[id].角色.宝石属性.红玛瑙 = "灵力"
        角色处理类:添加消费日志(玩家数据[id],"花费1000万银子转换宝石属性")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","恭喜你成功把红玛瑙转换为灵力属性。"})
        角色处理类:刷新战斗属性(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","转换宝石属性需要1000W两银子!"})
    end
  elseif 事件 == "红玛瑙转换防御" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
    if 玩家数据[id].角色.宝石属性.红玛瑙 == "防御" then
       发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的红玛瑙本身就是防御属性，无法进行转换"})
       return
    elseif 银子检查(id,10000000) then
        角色处理类:扣除银子(玩家数据[id],10000000, "宝石属性")
        玩家数据[id].角色.宝石属性.红玛瑙 = "防御"
        角色处理类:添加消费日志(玩家数据[id],"花费1000万银子转换宝石属性")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","恭喜你成功把红玛瑙转换为防御属性。"})
        角色处理类:刷新战斗属性(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","转换宝石属性需要1000W两银子!"})
    end
  elseif 事件 == "红玛瑙转换气血" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
    if 玩家数据[id].角色.宝石属性.红玛瑙 == "气血" then
       发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的红玛瑙本身就是气血属性，无法进行转换"})
       return
    elseif 银子检查(id,10000000) then
        角色处理类:扣除银子(玩家数据[id],10000000, "宝石属性")
        玩家数据[id].角色.宝石属性.红玛瑙 = "气血"
        角色处理类:添加消费日志(玩家数据[id],"花费1000万银子转换宝石属性")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","恭喜你成功把红玛瑙转换为气血属性。"})
        角色处理类:刷新战斗属性(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","转换宝石属性需要1000W两银子!"})
    end
  elseif 事件 == "红玛瑙转换伤害" and 地图1 == 1001 and 名称 == "袁天罡" then
    if 玩家数据[id].角色.宝石属性 == nil then
        玩家数据[id].角色.宝石属性 = {光芒石="气血",红玛瑙="伤害"}
    end
    if 玩家数据[id].角色.宝石属性.红玛瑙 == "伤害" then
       发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的红玛瑙本身就是伤害属性，无法进行转换"})
       return
    elseif 银子检查(id,10000000) then
        角色处理类:扣除银子(玩家数据[id],10000000, "宝石属性")
        玩家数据[id].角色.宝石属性.红玛瑙 = "伤害"
        角色处理类:添加消费日志(玩家数据[id],"花费1000万银子转换宝石属性")
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","恭喜你成功把红玛瑙转换为伤害属性。"})
        角色处理类:刷新战斗属性(玩家数据[id])
    else
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","转换宝石属性需要1000W两银子!"})
    end
     elseif 事件 == "替换助战一"  and 名称 == "袁天罡"   then
         if 玩家数据[id].助战.数据[1].造型~="无"  and 玩家数据[id].助战.数据[1].品质 ~= "无"  then
          玩家数据[id].助战.数据.助战一.品质 = 玩家数据[id].助战.数据[1].品质
          玩家数据[id].助战.数据.助战一.造型 = 玩家数据[id].助战.数据[1].造型
          玩家数据[id].助战.数据[1]= { 造型 ="无",品质 ="无"}
          发送数据(玩家数据[id].连接id, 200073,zz:刷新助战抽卡(id))
          zz:副宠刷新属性(id,玩家数据[id].助战.数据.助战一.等级)
         end
 elseif 事件 == "替换助战二"  and 名称 == "袁天罡"   then
        if 玩家数据[id].助战.数据[1].造型~="无"  and 玩家数据[id].助战.数据[1].品质 ~= "无"  then
          玩家数据[id].助战.数据.助战二.品质 = 玩家数据[id].助战.数据[1].品质
          玩家数据[id].助战.数据.助战二.造型 = 玩家数据[id].助战.数据[1].造型
          玩家数据[id].助战.数据[1]= { 造型 ="无",品质 ="无"}
          发送数据(玩家数据[id].连接id, 200073,zz:刷新助战抽卡(id))
          zz:副宠刷新属性(id,玩家数据[id].助战.数据.助战一.等级)
         end
 elseif 事件 == "替换助战三"  and 名称 == "袁天罡"   then
      if 玩家数据[id].助战.数据[1].造型~="无"  and 玩家数据[id].助战.数据[1].品质 ~= "无"  then
          玩家数据[id].助战.数据.助战三.品质 = 玩家数据[id].助战.数据[1].品质
          玩家数据[id].助战.数据.助战三.造型 = 玩家数据[id].助战.数据[1].造型
          玩家数据[id].助战.数据[1]= { 造型 ="无",品质 ="无"}
          发送数据(玩家数据[id].连接id, 200073,zz:刷新助战抽卡(id))
          zz:副宠刷新属性(id,玩家数据[id].助战.数据.助战一.等级)
         end
 elseif 事件 == "替换助战四"  and 名称 == "袁天罡"   then
     if 玩家数据[id].助战.数据[1].造型~="无"  and 玩家数据[id].助战.数据[1].品质 ~= "无"  then
          玩家数据[id].助战.数据.助战四.品质 = 玩家数据[id].助战.数据[1].品质
          玩家数据[id].助战.数据.助战四.造型 = 玩家数据[id].助战.数据[1].造型
          玩家数据[id].助战.数据[1]= { 造型 ="无",品质 ="无"}
          发送数据(玩家数据[id].连接id, 200073,zz:刷新助战抽卡(id))
         zz:副宠刷新属性(id,玩家数据[id].助战.数据.助战一.等级)
         end
      elseif 事件 == "继续取消"  and 名称 == "袁天罡"   then

      玩家数据[id].助战.数据[1]= { 造型 ="无",品质 ="无"}
      发送数据(玩家数据[id].连接id, 200073,zz:刷新助战抽卡(id))
    elseif 事件 == "开启神器·序章" and 地图1 == 1001 and 名称 == "袁天罡" then
        if 玩家数据[id].角色.神器 then
            发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你已经获取过神器了"})
        elseif 玩家数据[id].角色.等级 <109 then
            发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","需要109才能开启神器任务"})
        elseif  角色处理类:GetTaskID(玩家数据[id],"神器任务") ~= 0  then
            发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你已经领取过了神器任务"})
        else
            if  角色处理类:扣除仙玉(玩家数据[id],10000,"神器任务") then
                任务控制类:添加神器任务(id)
            else
                发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","你的仙玉不足1万，无法开启神器任务"})
                return
            end
        end

	elseif 事件 == "我来给装备开运" and 地图1 == 1001 and 名称 == "符石道人" then
        发送数据(玩家数据[id].连接id, 20037, 道具处理类:索要道具3(id,"包裹"))
    elseif 事件 == "点化装备星位" and 地图1 == 1001 and 名称 == "符石道人" then
        发送数据(玩家数据[id].连接id,20,{"道童","符石道人","系统还没有出星位系统"})
	elseif 事件 == "我来合成符石" and 地图1 == 1001 and 名称 == "符石道人" then
		发送数据(玩家数据[id].连接id, 20038, 道具处理类:索要道具3(id,"包裹"))

    elseif 事件 == "点化装备" and 地图1 == 1001 and 名称 == "五行大师" then
        发送数据(玩家数据[id].连接id,3011,{名称="五行大师" ,id=0,道具=道具处理类:索要道具2(id,"包裹")})
      elseif 事件 == "锦衣激活" and 地图1 == 1001 and 名称 == "锦衣制作" then
           发送数据(玩家数据[id].连接id,3011,{名称="锦衣制作" ,id=2016,道具=道具处理类:索要道具2(id,"包裹")})
                   elseif 事件 == "锦衣锻造" and 地图1 == 1001 and 名称 == "锦衣制作" then
           发送数据(玩家数据[id].连接id,3011,{名称="锦衣制作" ,id=2016,道具=道具处理类:索要道具2(id,"包裹")})
               elseif 事件 == "洗练锦衣" and 地图1 == 1001 and 名称 == "锦衣制作" then
           发送数据(玩家数据[id].连接id,3011,{名称="锦衣制作" ,id=2017,道具=道具处理类:索要道具2(id,"包裹")})
    elseif 事件 == "我要挑战(切入战斗)" and 地图1 == 1001 and 名称 == "梦倾笙" then
		任务控制类:挑战无限轮回(id)
	elseif 事件 == "准备好了，请告诉我们第一关的挑战地点" and 地图1 == 1001 and 名称 == "门派闯关使" then
        任务控制类:领取门派闯关任务(id)
        elseif 事件 == "查看今晚奖励" and 地图1 == 1001 and 名称 == "门派闯关使" then
            发送数据(玩家数据[id].连接id,20,{"御林军","李将军",
       "第一本 #R/【高级必杀】#W/ 玩家ID: #R/ "..门派闯关奖励.高级必杀.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级必杀.时间)..
     "\n第一本 #R/【高级法暴】#W/ 玩家ID: #R/ "..门派闯关奖励.高级法术暴击.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级法术暴击.时间)..
     "\n第一本 #R/【高级连击】#W/ 玩家ID: #R/ "..门派闯关奖励.高级连击.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级连击.时间)..
     "\n第一本 #R/【高级强力】#W/ 玩家ID: #R/ "..门派闯关奖励.高级强力.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级强力.时间)..
     "\n第一本 #R/【高级冥思】#W/ 玩家ID: #R/ "..门派闯关奖励.高级冥思.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级冥思.时间)..
     "\n第一本 #R/【高级幸运】#W/ 玩家ID: #R/ "..门派闯关奖励.高级幸运.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级幸运.时间)..
     "\n第一本 #R/【高级招架】#W/ 玩家ID: #R/ "..门派闯关奖励.高级招架.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级招架.时间)..
     "\n第一本 #R/【高级感知】#W/ 玩家ID: #R/ "..门派闯关奖励.高级感知.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级感知.时间)..
     "\n第一本 #R/【高级再生】#W/ 玩家ID: #R/ "..门派闯关奖励.高级再生.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级再生.时间)..
     "\n第一本 #R/【高级夜战】#W/ 玩家ID: #R/ "..门派闯关奖励.高级夜战.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级夜战.时间)..
     "\n第一本 #R/【高级敏捷】#W/ 玩家ID: #R/ "..门派闯关奖励.高级敏捷.id.." #W/获得时间为： #R/ "..os.date("%Y-%m-%d-%H:%M:%S",门派闯关奖励.高级敏捷.时间)
     })
    elseif 事件 == "我来取消任务" and 地图1 == 1001 and 名称 == "门派闯关使" then
        if 角色处理类:GetTaskID(玩家数据[id],"门派闯关") == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/你当前没有可取消的任务")
        else
            角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"门派闯关"))
            发送数据(玩家数据[id].连接id, 7, "#y/你的门派闯关任务已经取消了")
        end
        -----------------------------
        elseif 事件 == "确定以及肯定"  and 名称 == "李将军"   then
    角色处理类:重置精灵属性(玩家数据[id])
    elseif 事件 == "切换为“无”（不消耗能量）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"无")
    elseif 事件 == "幸运·小精灵（1级）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"幸运")
    elseif 事件 == "感知·小精灵（2级）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"感知")
    elseif 事件 == "神佑·小精灵（3级）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"神佑")
    elseif 事件 == "高级神佑·小精灵（4级）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"高神")
    elseif 事件 == "聚灵术·小精灵（5级）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"聚灵术")
    elseif 事件 == "聚财术·小精灵（6级）"  and 名称 == "李将军"   then
    角色处理类:切换精灵技能(玩家数据[id],"聚财术")

    elseif (事件 == "体质" or 事件 == "命中" or 事件 == "力量" or 事件 == "伤害" or 事件 == "速度" or 事件 == "耐力" or 事件 == "愤怒" or 事件 == "防御" or 事件 == "魔力" or 事件 == "魔法" or 事件 == "气血" or 事件 == "法防" or 事件 == "法术伤害" or 事件 == "固定伤害" or 事件 == "封印命中等级" or 事件 == "抵抗封印等级" or 事件 == "气血回复效果")  and 名称 == "李将军"   then
    角色处理类:精灵赋能(玩家数据[id],事件)
    elseif 事件 == "取消祝福" and 名称 == "李将军"   then

      if 玩家数据[id].角色.精灵[1] ==nil or #玩家数据[id].角色.精灵[1] <=0 then
         发送数据(玩家数据[id].连接id,7,"#Y/您的精灵没有祝福效果,怎么取消")
          return
          else
          local 临时事件 = {}
          for n=1,#玩家数据[id].角色.精灵[1] do

           临时事件[n] = "取消"..玩家数据[id].角色.精灵[1][n].类型
          end
          发送数据(玩家数据[id].连接id,20,{"御林军","李将军","请选择你要取消的祝福状态",临时事件})
      end
    elseif (事件 == "取消体质" or 事件 == "取消命中" or 事件 == "取消力量" or 事件 == "取消伤害" or 事件 == "取消速度" or 事件 == "取消耐力" or 事件 == "取消愤怒" or 事件 == "取消防御" or 事件 == "取消魔力" or 事件 == "取消魔法" or 事件 == "取消气血" or 事件 == "取消法防" or 事件 == "取消法术伤害" or 事件 == "取消固定伤害" or 事件 == "取消封印命中等级" or 事件 == "取消抵抗封印等级" or 事件 == "取消气血回复效果")  and 名称 == "李将军"   then
    角色处理类:取消精灵赋能(玩家数据[id],事件)
    ------------------------------
elseif ( 事件 == "生死劫·止戈")  and 名称 == "丹青生"   then
     if 玩家数据[id].角色.等级 < 0 then
        发送数据(玩家数据[id].连接id, 7, "#y/等级达到145级后才可进行生死劫挑战")
        return 0
        elseif 玩家数据[id].角色.生死劫 >= 1  then
        发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·止戈了")
        return 0
              else
        战斗准备类:进入处理(id, 20001011, "66", 1)
             end
    elseif ( 事件 == "生死劫·清心")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
       发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
       return 0
       elseif 玩家数据[id].角色.生死劫 >= 2  then
       发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·清心了")
       return 0
       elseif 玩家数据[id].角色.生死劫 < 1  then
       发送数据(玩家数据[id].连接id, 7, "#y/需要打败生死劫·止戈才能挑战")
        return 0
              else
       战斗准备类:进入处理(id, 20001022, "66", 1)
             end
    elseif ( 事件 == "生死劫·雷霆")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
       发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
       return 0
       elseif 玩家数据[id].角色.生死劫 >= 3  then
       发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·雷霆了")
       return 0
       elseif 玩家数据[id].角色.生死劫 < 2  then
       发送数据(玩家数据[id].连接id, 7, "#y/需要打败生生死劫·清心才能挑战")
       return 0
              else
       战斗准备类:进入处理(id, 20001033, "66", 1)
             end
    elseif ( 事件 == "生死劫·惜花")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
       发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
        return 0
        elseif 玩家数据[id].角色.生死劫 >= 4  then
        发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·惜花了")
                return 0
       elseif 玩家数据[id].角色.生死劫 < 3  then
       发送数据(玩家数据[id].连接id, 7, "#y/需要打败生死劫·雷霆才能挑战")
        return 0
              else
         战斗准备类:进入处理(id, 20001044, "66", 1)
             end
    elseif ( 事件 == "生死劫·忘情")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
                return 0
            elseif 玩家数据[id].角色.生死劫 >= 5  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·忘情了")
                return 0
             elseif 玩家数据[id].角色.生死劫 < 4  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败生死劫·惜花才能挑战")
                return 0
              else
                    战斗准备类:进入处理(id, 20001055, "66", 1)
             end
    elseif ( 事件 == "生死劫·卧龙")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
                return 0
            elseif 玩家数据[id].角色.生死劫 >= 6  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·卧龙了")
                return 0
             elseif 玩家数据[id].角色.生死劫 < 5  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败生生死劫·忘情才能挑战")
                return 0
              else
                    战斗准备类:进入处理(id, 20001066, "66", 1)
             end
    elseif ( 事件 == "生死劫·天象")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
                return 0
            elseif 玩家数据[id].角色.生死劫 >= 7  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过生死劫·天象了")
                return 0
             elseif 玩家数据[id].角色.生死劫 < 6  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败生生死劫·卧龙才能挑战")
                return 0
              else
                    战斗准备类:进入处理(id, 20001077, "66", 1)
             end
    elseif ( 事件 == "生死劫·轮回")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
                return 0
            elseif 玩家数据[id].角色.生死劫 >= 8  then
                发送数据(玩家数据[id].连接id, 8, "#y/你已经挑战过生死劫·轮回了")
                return 0
             elseif 玩家数据[id].角色.生死劫 < 7  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败生死劫·天象才能挑战")
                return 0
              else
                    战斗准备类:进入处理(id, 20001088, "66", 1)
             end
    elseif ( 事件 == "生死劫·娑罗")  and 名称 == "丹青生"   then
    if 玩家数据[id].角色.等级 < 0 then
       发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行生死劫挑战")
                return 0
       elseif 玩家数据[id].角色.生死劫 >= 9  then
        发送数据(玩家数据[id].连接id, 9, "#y/你已经挑生生死劫·娑罗了")
                return 0
        elseif 玩家数据[id].角色.生死劫 < 8  then
         发送数据(玩家数据[id].连接id, 7, "#y/需要打败生生死劫·轮回才能挑战")
                return 0
              else
         战斗准备类:进入处理(id, 20001099, "66", 1)
             end

	elseif 事件 == "我想为人物染色" and 地图1 == 1001 and 名称 == "染色师" then
        发送数据(玩家数据[id].连接id, 3012, 角色处理类:获取角色染色数据(玩家数据[id]))

    elseif 事件 == "我要更改角色名字" and 地图1 == 1001 and 名称 == "袁守诚" then
        发送数据(玩家数据[id].连接id, 15, {"改名","请输入你需要更改的名字，需要消耗400仙玉"})
    elseif 事件 == "我要更改角色造型" and 地图1 == 1001 and 名称 == "袁守诚" then
		wb = " 请选择你要更改的造型，更改一次造型需要100万银子"
		local xx = {"飞燕女","英女侠","巫蛮儿","逍遥生","剑侠客","狐美人","骨精灵","杀破狼","巨魔王","虎头怪","舞天姬","玄彩娥","羽灵神","神天兵","龙太子","偃无师","鬼潇潇","桃夭夭"}
         发送数据(玩家数据[id].连接id,20,{"诗中仙","袁守诚",wb,xx})
	elseif 事件 == "飞燕女" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"飞燕女")
	elseif 事件 == "英女侠" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"英女侠")
	elseif 事件 == "巫蛮儿" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"巫蛮儿")
	elseif 事件 == "逍遥生" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"逍遥生")
	elseif 事件 == "剑侠客" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"剑侠客")
	elseif 事件 == "狐美人" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"狐美人")
	elseif 事件 == "骨精灵" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"骨精灵")
	elseif 事件 == "杀破狼" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"杀破狼")
	elseif 事件 == "巨魔王" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"巨魔王")
	elseif 事件 == "虎头怪" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"虎头怪")
	elseif 事件 == "舞天姬" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"舞天姬")
	elseif 事件 == "玄彩娥" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"玄彩娥")
	elseif 事件 == "羽灵神" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"羽灵神")
	elseif 事件 == "神天兵" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"神天兵")
	elseif 事件 == "龙太子" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"龙太子")
	elseif 事件 == "桃夭夭" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"桃夭夭")
	elseif 事件 == "偃无师" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"偃无师")
	elseif 事件 == "鬼潇潇" and 地图1 == 1001 and 名称 == "袁守诚" then
		 角色处理类:改变造型(玩家数据[id],"鬼潇潇")

	elseif 事件 == "是的我要为角色洗点一次" and 地图1 == 1001 and 名称 == "洗点人" then
        if 角色处理类:取是否佩戴装备(玩家数据[id])  then
            发送数据(玩家数据[id].连接id,20,{"道士","洗点人","急着洗点被雷劈啊？衣服和法宝先脱下来！"})
           elseif 玩家数据[id].角色.精灵  and 玩家数据[id].角色.精灵[1]  and #玩家数据[id].角色.精灵[1] > 0 then

           发送数据(玩家数据[id].连接id,20,{"道士","洗点人","请取消精灵祝福再来！"})
        elseif 玩家数据[id].角色.新祈福  and 玩家数据[id].角色.新祈福[1]  and #玩家数据[id].角色.新祈福[1] > 0 then

           发送数据(玩家数据[id].连接id,20,{"道士","洗点人","请取消祈福属性再来！"})
        elseif 银子检查(id,1000000) then
            角色处理类:扣除银子(玩家数据[id],1000000, "角色洗点")
            角色处理类:重置属性点(玩家数据[id])
            角色处理类:添加消费日志(玩家数据[id],"花费100万银子重置角色属性点")
            发送数据(玩家数据[id].连接id,20,{"道士","洗点人","已经洗点成功了！要想再次洗点，欢迎下次再来"})
        else
            发送数据(玩家数据[id].连接id,20,{"道士","洗点人","走走走!你这个穷光蛋!"})
        end

	elseif 事件 == "乌鸡国" and 地图1 == 1026  and 名称 == "吴举人" then
        发送数据(玩家数据[id].连接id,20,{"书生","吴举人"," 你可以在我这里开启乌鸡国副本。开启本副本需要队伍成员数达到5人。且等级必须达到50级。每次开启本副本需要消耗所有队员100点人气与50万两银子。",{"开启副本","进入副本","取消"}})
	elseif 事件 == "开启副本" and 地图1 == 1026  and 名称 == "吴举人" then
        任务控制类:创建乌鸡国副本(id)
	elseif 事件 == "进入副本" then
		if 玩家数据[id].副本 == 0 then
			发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有开启副本任务")
		else
			self.允许传送 = true
			if 玩家数据[id].队伍 ~= 0 then
				for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
					if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].副本 ~= 玩家数据[id].副本 then
						self.允许传送 = false
					end
				end
			end
			if self.允许传送 then
				地图处理类:Jump(id, 任务数据[玩家数据[id].副本].传送数据.地图, 任务数据[玩家数据[id].副本].传送数据.x, 任务数据[玩家数据[id].副本].传送数据.y)
			else
				发送数据(玩家数据[id].连接id, 7, "#y/有队员与队长副本不一致，无法从我这里传送")
			end
		end


    elseif 事件 == "我来合成法宝" and 地图1 == 1113 and 名称 == "太上老君" then
     	发送数据(玩家数据[id].连接id,2034,道具处理类:索要道具3(id, "包裹"))
    elseif 事件 == "我来取消任务" and 地图1 == 1113 and 名称 == "金童子" then
		if 角色处理类:GetTaskID(玩家数据[id],"法宝") == 0 then
			发送数据(玩家数据[id].连接id, 20, {"道童","金童子","你似乎还没有领取本任务"})
		else
			角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"法宝"))
			发送数据(玩家数据[id].连接id, 7, "#y/你取消了法宝任务")
		end


    ---地狱迷宫3
    elseif 事件 == "我来换高级藏宝图" and 地图1 == 1129 and 名称 == "无名野鬼" then
		local 找到物品 = false
		local 特赦格子 = 0
		for n = 1, 80 do
			if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "特赦令牌" then
				找到物品 = true
				特赦格子=n
	          break
			end
		end
		if 找到物品 == false then
			发送数据(玩家数据[id].连接id, 20, {"野鬼","无名野鬼","你身上没有特赦令牌呀"})
		else
       道具处理类:RemoveItems(玩家数据[id],特赦格子,"特赦令牌")
			道具处理类:给予道具(id, "高级藏宝图")
			发送数据(玩家数据[id].连接id, 3006, "66")
		end

 --长安回收商人
    elseif 事件 == "回收魔兽要诀"   then
    local 五宝格子 = {}
    local nubersd = 0
    for i = 1, 1 do
      for n = nubersd+1, 20 do
        if 玩家数据[id].角色.道具["包裹"][n] ~= nil  and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 =="魔兽要诀"  then
          五宝格子[#五宝格子 + 1] = n
          nubersd=n
           break
        end
      end
    end
    if #五宝格子 ~= 1 then
      发送数据(玩家数据[id].连接id, 20, {"钱庄老板","回收商人","没有找到你所要回收的物品"})
    else
      for n = 1, 1 do
          道具处理类:RemoveItems(玩家数据[id],五宝格子[n],"魔兽要诀")
      end
      角色处理类:添加成就积分(玩家数据[id],5)
      发送数据(玩家数据[id].连接id, 3006, "66")
    end
    elseif 事件 == "回收高级魔兽要诀"   then
    local 五宝格子 = {}
    local nubersd = 0
    for i = 1, 1 do
      for n = nubersd+1, 20 do
        if 玩家数据[id].角色.道具["包裹"][n] ~= nil  and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 =="高级魔兽要诀"  then
          五宝格子[#五宝格子 + 1] = n
          nubersd = n
           break
        end
      end
    end
    if #五宝格子 ~= 1 then
      发送数据(玩家数据[id].连接id, 20, {"钱庄老板","回收商人","没有找到你所要回收的物品"})
    else
      for n = 1, 1 do
          道具处理类:RemoveItems(玩家数据[id],五宝格子[n],"高级魔兽要诀")

      end
      角色处理类:添加成就积分(玩家数据[id],50)
      发送数据(玩家数据[id].连接id, 3006, "66")
    end
    elseif 事件 == "回收特殊魔兽要诀"   then
    local 五宝格子 = {}
    local nubersd = 0
    for i = 1, 1 do
      for n = nubersd + 1, 20 do
        if 玩家数据[id].角色.道具["包裹"][n] ~= nil  and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 =="特殊魔兽要诀"  then
          五宝格子[#五宝格子 + 1] = n
          nubersd = n
           break
        end
      end
    end
    if #五宝格子 ~= 1 then
      发送数据(玩家数据[id].连接id, 20, {"钱庄老板","回收商人","没有找到你所要回收的物品"})
    else
      for n = 1, 1 do
          道具处理类:RemoveItems(玩家数据[id],五宝格子[n],"特殊魔兽要诀")
      end
      角色处理类:添加成就积分(玩家数据[id],500)
      发送数据(玩家数据[id].连接id, 3006, "66")
    end

 --傲来偷偷怪
    elseif 事件 == "熔炼内丹" and 地图1 == 1092 and 名称 == "偷偷怪" then
    local 五宝格子 = {}
    local nubersd = 0
    for i = 1, 3 do
      for n = nubersd + 1, 20 do
        if 玩家数据[id].角色.道具["包裹"][n] ~= nil  and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 =="召唤兽内丹"  then
          五宝格子[#五宝格子 + 1] = n
          nubersd=n
           break
        end
      end
    end
    if #五宝格子 ~= 3 then
      发送数据(玩家数据[id].连接id, 20, {"兔子怪","偷偷怪","只有集齐集齐三个召唤兽内丹才可以熔炼"})
    else
      for n = 1, 3 do
          道具处理类:RemoveItems(玩家数据[id],五宝格子[n],"召唤兽内丹")
      end
      道具处理类:给予道具(id, "召唤兽内丹")
      发送数据(玩家数据[id].连接id, 3006, "66")
    end

    elseif 事件 == "熔炼高级内丹" and 地图1 == 1092 and 名称 == "偷偷怪" then
      self.发送信息 = {

                        道具 = 道具处理类:索要玩家道具(id, "包裹")
                    }
                    发送数据(玩家数据[id].连接id, 3084, self.发送信息)

   elseif 事件 == "合成宝宝护符" and 地图1 == 1092 and 名称 == "偷偷怪" then
      self.发送信息 = {

                        道具 = 道具处理类:索要玩家道具(id, "包裹")
                    }
                    发送数据(玩家数据[id].连接id, 3086, self.发送信息)

    elseif 事件 == "我要换炼兽真经" and 地图1 == 1092 and 名称 == "偷偷怪" then
        local 五宝名称 = {"笔","墨","纸","砚"}
        local 五宝格子 = {}
        for i = 1, #五宝名称 do
            local 五宝找到 = false
            for n = 1, 80 do
                if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 五宝找到 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == 五宝名称[i] then
                    五宝找到 = true
                    五宝格子[#五宝格子 + 1] = n
                end
            end
        end
        if #五宝格子 ~= 4 then
            发送数据(玩家数据[id].连接id, 20, {"兔子怪","偷偷怪","只有集齐笔、墨、纸、砚才可换炼兽真经"})
        else
            for n = 1, 4 do
        道具处理类:RemoveItems(玩家数据[id],五宝格子[n],"五宝")
            end
            道具处理类:给予道具(id, "炼兽真经")
            发送数据(玩家数据[id].连接id, 3006, "66")
        end

    elseif 事件 == "我要换特赦令牌" and 地图1 == 1092 and 名称 == "偷偷怪" then
        local 五宝名称 = {"夜光珠","龙鳞","定魂珠","避水珠","金刚石"}
        local 五宝格子 = {}
        for i = 1, #五宝名称 do
            local 五宝找到 = false
            for n = 1, 80 do
                if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 五宝找到 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == 五宝名称[i] then
                    五宝找到 = true
                    五宝格子[#五宝格子 + 1] = n
                end
            end
        end
        if #五宝格子 ~= 5 then
            发送数据(玩家数据[id].连接id, 20, {"兔子怪","偷偷怪","只有集齐龙鳞、夜光珠、避水珠、定魂珠、金刚石才可换特赦令牌"})
        else
            for n = 1, 5 do
        道具处理类:RemoveItems(玩家数据[id],五宝格子[n],"五宝")
            end
            道具处理类:给予道具(id, "特赦令牌")
        end
	elseif 事件 == "学习宝石工艺" and 地图1 == 1092 and 名称 == "蝴蝶妹妹" then
		发送数据(玩家数据[id].连接id, 20, {"蝴蝶仙子","蝴蝶妹妹","当前还未开放剧情技能哦#24"})
	elseif 事件 == "我来合成碎石锤" and 地图1 == 1092 and 名称 == "蝴蝶妹妹" then
			道具处理类:索要打造道具(id, "包裹", "合成")


	elseif 事件 == "我来取消任务" and 地图1 == 1092 and 名称 == "游泳大赛报名官" then
				if 角色处理类:GetTaskID(玩家数据[id],"游泳")==0 then
				发送数据(玩家数据[id].连接id,20,{"进阶超级海豚","游泳大赛报名官","#Y/请先领取游泳任务"})
			    elseif 玩家数据[id].队伍~=0 then
				     发送数据(玩家数据[id].连接id,20,{"进阶超级海豚","游泳大赛报名官","#Y/请解散队伍以后再过来取消"})
				else
				发送数据(玩家数据[id].连接id,20,{"进阶超级海豚","游泳大赛报名官","#Y/你取消了游泳任务"})
				角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"游泳"))
          任务数据[角色处理类:GetTaskID(玩家数据[id],"游泳")]=nil
				end
	elseif 事件 == "我要参赛" and 地图1 == 1092 and 名称 == "游泳大赛报名官" then
				    if 游戏比赛开关==false then
				      发送数据(玩家数据[id].连接id,7,"#Y/12-22点才可参加比赛")
				     return 0
				    elseif 玩家数据[id].队伍==0 then
				     发送数据(玩家数据[id].连接id,7,"#Y/本大赛最少需要三人组队参加")
				     return 0
				    elseif #队伍数据[玩家数据[id].队伍].队员数据<1  and DebugMode == false then
				     发送数据(玩家数据[id].连接id,7,"#Y/本大赛最少需要三人组队参加")
				     return 0
				    elseif 取队伍符合等级(id,65)==false  then
				     发送数据(玩家数据[id].连接id,7,"#Y/本大赛要求等级达到65级后才可参加")
				     return 0
				    else
				      self.检查通过=""
				      self.检查通过1=""
				      for n=1,#队伍数据[玩家数据[id].队伍].队员数据 do
				        if 游泳比赛数据[队伍数据[玩家数据[id].队伍].队员数据[n]]==nil then
				             游泳比赛数据[队伍数据[玩家数据[id].队伍].队员数据[n]]=0
				        elseif 游泳比赛数据[队伍数据[玩家数据[id].队伍].队员数据[n]]>=1 then
				         self.检查通过=玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称
				         elseif 角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"游泳") then
				         self.检查通过1=玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称
				         end
				        end
				      if self.检查通过~="" then
				            发送数据(玩家数据[id].连接id,7,"#Y/"..self.检查通过.."本日已经参赛两次，无法再参赛了")
				            return 0
				       elseif self.检查通过1~="" then
				            发送数据(玩家数据[id].连接id,7,"#Y/"..self.检查通过1.."已经领取了任务")
				             return 0
				        end
				      任务控制类:添加游泳任务(id)
				      end

    elseif 事件 == "我要去昆仑仙境" and 地图1 == 1001 and 名称 == "春节使者" then
        if 玩家数据[id].队伍 ~= 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/无昆仑仙境不允许组队进入")
        elseif 玩家数据[id].角色.等级 < 40 then
            发送数据(玩家数据[id].连接id, 7, "#y/只有等级达到40级的玩家才可进入无间炼狱")
        elseif 角色处理类:GetTaskID(玩家数据[id],"天机培元丹") == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/你还未使用天机培元丹")
        else
            self.临时坐标 = 地图处理类:Randomloadtion(1214)
            地图处理类:Jump(id, 1214, self.临时坐标.x,self.临时坐标.y)
            发送数据(玩家数据[id].连接id, 7, "#y/在本地图中每隔60秒可获得一次奖励")
            if 角色处理类:GetTaskID(玩家数据[id],"九霄清心丸") ~= 0 then
                发送数据(玩家数据[id].连接id, 7, "#y/你现在可以获得九霄清心丸的双倍加成效果")
            end
        end
      elseif 事件 =="捐赠" and 地图1 == 1001 then
        wb = "捐赠系统排行前三的玩家可获得额外的属性,每天捐赠排行都会重置"
        xx = {"捐赠-10-点卡","捐赠-50-点卡","捐赠-100-点卡","捐赠-200-点卡","捐赠-300-点卡","捐赠-500-点卡","捐赠-1000-点卡","捐赠-2000-点卡","捐赠-5000-点卡"}
        发送数据(玩家数据[id].连接id,20,{"剑侠客","老G",wb,xx})
elseif 名称=="老G" and 地图1==1001

and 事件 ~="查看捐赠排行"
and 事件 ~="关于捐赠"
and 事件 ~="捐赠"

  then
        local haomai888=分割文本(事件,"-")
        if haomai888[2]~=nil then
           if 角色处理类:扣除点卡(玩家数据[id],haomai888[2]+0,"捐赠") then
              角色处理类:捐赠排行(玩家数据[id],haomai888[2]+0)
             发送数据(玩家数据[id].连接id, 7, "#y/谢谢你的捐赠!")
             else
            发送数据(玩家数据[id].连接id, 7, "#y/你没有足够的点卡!")
           end
        end
elseif 事件 =="关于捐赠" and 地图1 == 1001 then
        wb = "捐赠前三名获得额外的属性加成,捐赠排行每天清空,第一名伤害+500,第二名伤害+300,第三名伤害+100"
        xx = {"捐赠","我就看看"}
        发送数据(玩家数据[id].连接id,20,{"剑侠客","老G",wb,xx})
elseif 事件 =="查看捐赠排行" and 地图1 == 1001 then
角色处理类:获取排行(玩家数据[id])
    elseif 事件 =="我要查看新年积分" and 地图1 == 1001 then
        发送数据(玩家数据[id].连接id, 7, "#y/你当前有".. 玩家数据[id].角色.新年积分.."新年积分")
    elseif 事件 =="我要抽奖(消耗新年积分)" and 地图1 == 1001 then
        if  玩家数据[id].角色.新年积分 < 25 then
            发送数据(玩家数据[id].连接id, 7, "#y/抽奖需要消耗25点新年积分")
        else
            角色处理类:扣除新年积分(玩家数据[id], 25)
        local cj = ""
        local 奖励参数 = math.random(75)
        if 奖励参数 >=1 and 奖励参数 <=20 then
            道具处理类:给予道具(id, "聚灵袋")
            广播消息("#hd/".."#S/(新年积分)" .. 玩家数据[id].角色.名称 .. "#y/在新年活动使者处，消耗了新年积分成功兑换了#r聚灵袋")
        elseif 奖励参数 >=21 and 奖励参数 <=40 then
            道具处理类:给予道具(id,"聚气袋")
            广播消息("#hd/".."#S/(新年积分)" .. 玩家数据[id].角色.名称 .. "#y/在新年活动使者处，消耗了新年积分成功兑换了#r聚气袋")
        elseif 奖励参数 >=41 and 奖励参数 <=50 then
            道具处理类:给予道具(id,"萝卜王")
            广播消息("#hd/".."#S/(新年积分)" .. 玩家数据[id].角色.名称 .. "#y/在新年活动使者处，消耗了新年积分成功兑换了#r萝卜王")
        elseif 奖励参数 >=51 and 奖励参数 <=55 then
            道具处理类:给予道具(id,"灵兜兜")
            广播消息("#hd/".."#S/(新年积分)" .. 玩家数据[id].角色.名称 .. "#y/在新年活动使者处，消耗了新年积分成功兑换了#r灵兜兜")
        elseif 奖励参数 >=56 and 奖励参数 <=65 then
            道具处理类:给予道具(id, "珍珠", math.random(14, 16) * 10)
            广播消息("#hd/".."#S/(新年积分)" .. 玩家数据[id].角色.名称 .. "#y/在新年活动使者处，消耗了新年积分成功兑换了#r珍珠")
        elseif 奖励参数 >=66 and 奖励参数 <=75 then
            道具处理类:给予道具(id, "锦衣碎片",nil,nil,2)
            广播消息("#hd/".."#S/(新年积分)" .. 玩家数据[id].角色.名称 .. "#y/在新年活动使者处，消耗了新年积分成功兑换了#r锦衣碎片*2")
        end
    end

	elseif 事件 == "花费2000两购买鱼竿" and 地图1 == 1092 and 名称 == "渔夫" then
		if 银子检查(id, 2000) then
			角色处理类:扣除银子(玩家数据[id], 2000, "买鱼竿")
			道具处理类:给予道具(id,"鱼竿")
		else
			发送数据(玩家数据[id].连接id, 20, {"捕鱼人","渔夫","钱不够呢。"})
		end

	elseif 事件 == "兑换海产" and 地图1 == 1092 and 名称 == "渔夫" then
        local xx = {"随机二级鱼类","随机三级鱼类","随机属性人参果","祥瑞腾蛇"}
        发送数据(玩家数据[id].连接id, 20, {"捕鱼人","渔夫","请选择你要兑换的物品",xx})

 	elseif 事件 == "我们要挑战" and 地图1 == 1208 and 名称 == "巡游天官" then
        任务控制类:领取群雄逐鹿任务(id)
    elseif 事件 == "我要祈福"  and 名称 == "神机道人" then
      if  活动数据.本日祈福[id]==nil then
          if 是否聚宝盒(id,1) then
            活动数据.本日祈福[id] = {免费次数 =6,总次数 =0}
            else
            活动数据.本日祈福[id] = {免费次数 =3,总次数 =0}
         end
      end
      发送数据(玩家数据[id].连接id,2006666,{类型=玩家数据[id].角色.新祈福.类型,次数=玩家数据[id].角色.新祈福.次数})
 	elseif 事件 == "我要祈福(消耗200仙玉)"  and 名称 == "神机道人" then
 		发送数据(玩家数据[id].连接id,20048,{类型="仙玉",祈福=玩家数据[id].角色.祈福})
 	elseif 事件 == "我要祈福(消耗5千万银子)"  and 名称 == "神机道人" then
		发送数据(玩家数据[id].连接id,20048,{类型="银子",祈福=玩家数据[id].角色.祈福})
    elseif 事件 == "我要抽奖(消耗2千万银子)" and 地图1 == 1208 and 名称 == "银币抽奖" then
        道具处理类:银币抽奖(id)

	elseif 事件 == "我来取消任务" and 地图1 == 1208 and 名称 == "巡游天官" then
	    		if 角色处理类:GetTaskID(玩家数据[id],"群雄逐鹿")==0 then
				    发送数据(玩家数据[id].连接id,20,{"巡游天官","巡游天官","#Y/请先领取活动"})
			    elseif 玩家数据[id].队伍~=0 then
				    发送数据(玩家数据[id].连接id,20,{"巡游天官","游巡游天官","#Y/请解散队伍以后再过来取消"})
				else
				    发送数据(玩家数据[id].连接id,20,{"巡游天官","游巡游天官","#Y/你取消了群雄逐鹿任务"})
				    角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"群雄逐鹿"))
				    任务数据[角色处理类:GetTaskID(玩家数据[id],"群雄逐鹿")]=nil
				end
   	elseif 事件 == "抓捕生肖" and 地图1 == 1111 and 名称 == "守门天兵" then
   	    发送数据(玩家数据[id].连接id,20,{"天兵","守门天兵","活动还未开发"})

 --道具商人
    elseif 事件 == "购买" and 地图1 == 1505  and 名称 == "杂货店老板" then  --建业杂货店-东升货栈
        商店处理类:GetNpcShop(id,12)

    elseif 事件 == "购买" and 地图1 == 1070  and 名称 == "杂货店老板" then   --长寿村杂货店
        商店处理类:GetNpcShop(id,12)

    elseif 事件 == "购买"  and 地图1 == 1502 and 名称 == "武器店掌柜" then   --建邺兵铁铺
        商店处理类:GetNpcShop(id,1)

    elseif 事件 == "购买"  and 地图1 == 1502 and 名称 == "武器店老板" then   --建邺兵铁铺
        商店处理类:GetNpcShop(id,2)

    elseif 事件 == "购买"  and 地图1 == 1020 and 名称 == "武器店掌柜" then   --长安万胜武器店
        商店处理类:GetNpcShop(id,3)

    elseif 事件 == "购买" and 地图1 == 1020 and 名称 == "武器店老板" then   --长安万胜武器店
        商店处理类:GetNpcShop(id,16)

    elseif 事件 == "购买" and 地图1 == 1083 and 名称 == "裁缝张" then  --长寿村布店
        商店处理类:GetNpcShop(id,11)

    elseif 事件 == "购买" and 地图1 == 1101 and 名称 == "杜天" then   --傲来武器店
        商店处理类:GetNpcShop(id,4)

    elseif 事件 == "购买" and 地图1 == 1095 and 名称 == "牛师傅" then   --傲来布店
        商店处理类:GetNpcShop(id,8)

    elseif 事件 == "购买" and 地图1 == 1085 and 名称 == "武器店老板" then   --长寿武器店
        商店处理类:GetNpcShop(id,5)

    elseif 事件 == "购买" and 地图1 == 1503 and 名称 == "服装店老板" then    --建业布庄
        商店处理类:GetNpcShop(id,9)

    elseif 事件 == "购买" and 地图1 == 1504 and 名称 == "药店老板" then    --建邺药店
        商店处理类:GetNpcShop(id,14)

    elseif 事件 == "购买" and 地图1 == 1016 and 名称 == "药店老板" then    --长安回春堂药店
        商店处理类:GetNpcShop(id,10)

    elseif 事件 == "购买" and 地图1 == 1017 and 名称 == "饰品店老板" then    --长安锦绣饰品店
        商店处理类:GetNpcShop(id,7)

    elseif 事件 == "购买" and 地图1 == 1022 and 名称 == "服装店老板" then    --长安布庄
        商店处理类:GetNpcShop(id,6)

    elseif 事件 == "购买宝石" and 地图1 == 1001 and 名称 == "宝石商人" then    --长安宝石商人
        商店处理类:GetNpcShop(id,17)

    elseif 事件 == "购买" and 地图1 == 1030 and 名称 == "酒店老板" then    --长安云来酒店
        商店处理类:GetNpcShop(id,15)

    elseif 事件 == "购买" and 地图1 == 1001 and 名称 == "罗道人" then  --长安
        商店处理类:GetNpcShop(id,13)

    elseif 事件 == "购买" and 地图1 == 1501 and 名称 == "飞儿" then   --建业
        商店处理类:GetNpcShop(id,0)

    elseif 事件 == "咨询打造方法" and 地图1 == 1022 and 名称 == "张裁缝" then
        发送数据(玩家数据[id].连接id,20,{"服装店老板","张裁缝","你可以在我这里打工来增加你的裁缝熟练度,熟练度越高制造出来的装备属性越好哦,每次消耗40点体力.可以额外获得3000两银子"})

    elseif 事件 == "有什么需要帮忙的（打工加熟练度）" and 地图1 == 1022 and 名称 == "张裁缝" then
        if 玩家数据[id].角色.当前体力 > 40 then
            玩家数据[id].角色.裁缝熟练度=玩家数据[id].角色.裁缝熟练度+1
            角色处理类:添加银子(玩家数据[id],3000, "裁缝打工")
            玩家数据[id].角色.当前体力 = 玩家数据[id].角色.当前体力 - 40
        else
            发送数据(玩家数据[id].连接id,20,{"服装店老板","张裁缝","你的体力不足40点"})
        end

    elseif 事件 == "查看熟练度" and 地图1 == 1022 and 名称 == "张裁缝" then
        发送数据(玩家数据[id].连接id,20,{"服装店老板","张裁缝","你当前的裁缝熟练度:"..玩家数据[id].角色.裁缝熟练度})

    elseif 事件 == "给予强化石" and 地图1 == 1001 and 名称 == "冯铁匠" then
        发送数据(玩家数据[id].连接id,3011,{名称 = "冯铁匠" ,id = 角色处理类:GetTaskID(玩家数据[id],"打造"),道具 = 道具处理类:索要道具1(id,"包裹")})

    elseif 事件 == "咨询打造方法" and 地图1 == 1001 and 名称 == "冯铁匠" then
        发送数据(玩家数据[id].连接id,20,{"长安铁匠","冯铁匠","你可以在我这里打工来增加你的打造熟练度,熟练度越高制造出来的装备属性越好哦,每次消耗40点体力.可以额外获得3000两银子"})


    elseif 事件 == "查看熟练度" and 地图1 == 1001 and 名称 == "冯铁匠" then
        发送数据(玩家数据[id].连接id,20,{"长安铁匠","冯铁匠","你当前的打造熟练度:"..玩家数据[id].角色.打造熟练度})


    elseif 事件 == "有什么需要帮忙的（打工加熟练度）" and 地图1 == 1001 and 名称 == "冯铁匠" then
        if 玩家数据[id].角色.当前体力 > 40 then
            玩家数据[id].角色.打造熟练度=玩家数据[id].角色.打造熟练度+1
            角色处理类:添加银子(玩家数据[id],3000, "打造打工")
            玩家数据[id].角色.当前体力 = 玩家数据[id].角色.当前体力-40
        else
            发送数据(玩家数据[id].连接id,20,{"长安铁匠","冯铁匠","你的体力不足40点"})
        end

    elseif 事件 == "光武扩印" and 地图1 == 1001 and 名称 == "冯铁匠" then
        发送数据(玩家数据[id].连接id, 20058, "66")
    elseif 事件 == "改变双加属性" and (名称 == "冯铁匠" or 名称 == "张裁缝") then
        发送数据(玩家数据[id].连接id, 20059, "66")


    elseif 事件 == "打造" and (名称 == "打铁炉" or 名称 == "缝纫台")then
        道具处理类:索要打造道具(id, "包裹", "打造")

    elseif 事件 == "合成"  and (名称 == "打铁炉" or 名称 == "缝纫台") then
        道具处理类:索要打造道具(id, "包裹", "合成")

    elseif 事件 == "分解"  and 名称 == "打铁炉" then
        发送数据(玩家数据[id].连接id,2021, 道具处理类:索要道具2(id, "包裹"))

    elseif 事件 == "熔炼"  and (名称 == "打铁炉" or 名称 == "缝纫台") then
        道具处理类:索要打造道具(id, "包裹", "熔炼")

    elseif 事件 == "修理"  and 名称 == "打铁炉" then
        道具处理类:索要打造道具(id, "包裹", "修理")

    elseif 事件 == "购买灵饰指南书" and 地图1 == 1001 and 名称 == "袁天罡" then
        发送数据(玩家数据[id].连接id,20,{"诗中仙","袁天罡","请选择你要购买的灵饰书等级！",{"购买灵饰指南书(60-100)","购买灵饰指南书(120-160)","我再想想"}})
    elseif 事件 == "购买灵饰指南书(60-100)" and 地图1 == 1001 and 名称 == "袁天罡" then
        商店处理类:GetNpcShop(id,30)
    elseif 事件 == "购买灵饰指南书(120-160)" and 地图1 == 1001 and 名称 == "袁天罡" then
        商店处理类:GetNpcShop(id,31)
    elseif 事件 == "勇闯大雁塔" and 地图1 == 1001 and 名称 == "袁天罡" then
          地图处理类:Jump(id,1009,28,26)
    elseif 事件 == "购买元灵晶石" and 地图1 == 1001 and 名称 == "袁天罡" then
        商店处理类:GetNpcShop(id,32)

    elseif 事件 == "购买" and 地图1 == 1001 and 名称 == "便捷道具" then
        商店处理类:GetNpcShop(id,39)

    elseif 事件 == "购买挂机物品" and 地图1 == 1001 and 名称 == "春节使者" then
        商店处理类:GetNpcShop(id,50)

    elseif 事件 == "购买商品" and 地图1 == 1226 and 名称 == "云游道人" then   --宝象国
        商店处理类:GetNpcShop(id,28)

    elseif 事件 == "看看你这有什么卖的" and 地图1 == 1226 and 名称 == "古董商人"then
        商店处理类:GetNpcShop(id,22)

    elseif 事件 == "镶嵌宝石" and 地图1 == 1001 and 名称 == "宝石商人" then
        道具处理类:索要打造道具(id, "包裹", "镶嵌")
    elseif 事件 == "镶嵌珍珠" and 地图1 == 1001 and 名称 == "宝石商人" then
        道具处理类:索要打造道具(id, "包裹", "修理")


 --仙缘洞天-坐骑任务
    elseif 事件 == "领取坐骑" and 地图1 == 1216 and 名称 == "百兽王" then
        if 角色处理类:GetTaskID(玩家数据[id],"坐骑") ~= 0  and 任务数据[角色处理类:GetTaskID(玩家数据[id],"坐骑")].进程 == 5  then
            任务控制类:完成坐骑任务(id,角色处理类:GetTaskID(玩家数据[id],"坐骑"))
        end
    elseif 事件 == "领取坐骑任务" and 地图1 == 1216 and 名称 == "百兽王" then
        if 玩家数据[id].队伍 ~= 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/本任务需要单人来领取")
        elseif  角色处理类:GetTaskID(玩家数据[id],"坐骑") ~= 0  then
            发送数据(玩家数据[id].连接id, 7, "#y/你当前还有任务没做完，无法领取新的任务")
        elseif 玩家数据[id].角色.等级 < 60  then
            发送数据(玩家数据[id].连接id, 7, "#y/本任务需要等级达到60级才可领取")
        elseif 银子检查(id,2000000)  then
            if 玩家数据[id].角色.当前体力 >= 200 then
                角色处理类:扣除银子(玩家数据[id],2000000, "坐骑任务")
                玩家数据[id].角色.当前体力 = 玩家数据[id].角色.当前体力 - 200
               任务控制类:添加坐骑任务(id)
            else
                发送数据(玩家数据[id].连接id, 20, {"大大王","百兽王","你的体力不足200点无法领取任务"})
            end
        else
            发送数据(玩家数据[id].连接id, 20, {"大大王","百兽王","你的钱不足200万无法领取任务。"})
        end
    elseif 事件 == "取消坐骑任务" and 地图1 == 1216 and 名称 == "百兽王" then
        if 角色处理类:GetTaskID(玩家数据[id],"坐骑") == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有领取本任务")
        else
            角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"坐骑"))
            发送数据(玩家数据[id].连接id, 7, "#y/你取消了坐骑任务")
        end

    elseif 事件 == "啊！太好了!我正好想换换我的坐骑颜色" and 地图1 == 1216 and 名称 == "仙缘染坊主" then
         if 玩家数据[id].角色.坐骑.编号 == 0 then
            发送数据(玩家数据[id].连接id, 20, {"赵姨娘","仙缘染坊主","请将需要染色的坐骑选中骑乘状态"})
         else
            发送数据(玩家数据[id].连接id, 20049,玩家数据[id].角色.坐骑数据[玩家数据[id].角色.坐骑.编号])
        end
    elseif 事件 == "我要更换饰品的颜色" and 地图1 == 1216 and 名称 == "仙缘染坊主" then
         if 玩家数据[id].角色.坐骑.编号 == 0 then
            发送数据(玩家数据[id].连接id, 20, {"赵姨娘","仙缘染坊主","请将需要染色的坐骑选中骑乘状态"})
         elseif 玩家数据[id].角色.坐骑数据[玩家数据[id].角色.坐骑.编号].饰品 == nil then
            发送数据(玩家数据[id].连接id, 20, {"赵姨娘","仙缘染坊主","你的坐骑还没有佩戴饰品"})
         else
            发送数据(玩家数据[id].连接id, 20050,玩家数据[id].角色.坐骑数据[玩家数据[id].角色.坐骑.编号])
        end

    elseif 事件 == "开打" and 地图1 == 1526 and 名称 == "周猎户" then
        战斗准备类:进入处理(id, 100061, "66", 角色处理类:GetTaskID(玩家数据[id],"坐骑"))
    elseif 事件 == "岂有此理,谁怕谁" and 地图1 == 1111 and 名称 == "水兵统领" then
        战斗准备类:进入处理(id, 100060, "66", 角色处理类:GetTaskID(玩家数据[id],"坐骑"))
    elseif 事件 == "上交材料" and 地图1 == 1111 and 名称 == "顺风耳" then
        if 角色处理类:GetTaskID(玩家数据[id],"坐骑") ~= 0  and 任务数据[角色处理类:GetTaskID(玩家数据[id],"坐骑")].进程 == 2  then
            发送数据(玩家数据[id].连接id,3011,{名称="顺风耳" ,id=角色处理类:GetTaskID(玩家数据[id],"坐骑"),道具=道具处理类:索要道具1(id,"包裹")})
        end


 --嘉年华活动
    elseif 事件 == "领取任务" and 地图1 == 1040 and 名称 == "嘉年华活动" then
        if 玩家数据[id].队伍 == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/本任务需要五人组队完成")
        elseif #队伍数据[玩家数据[id].队伍].队员数据 < 1 and  DebugMode == false then
            发送数据(玩家数据[id].连接id, 7, "#y/本任务需要五人组队完成")
        elseif 取队伍符合等级(id, 60) == false then
            发送数据(玩家数据[id].连接id, 7, "#y/本任务需要等级达到60级才可领取")
        else
            for n = 1, #队伍数据[玩家数据[id].队伍].队员数据 do
                if 角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"嘉年华") ~= 0 or 活动数据.嘉年华数据[队伍数据[玩家数据[id].队伍].队员数据[n]] ~= nil then
                    发送数据(玩家数据[id].连接id, 7, "#y/" .. 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].角色.名称 .. "已经领取过任务了")
                    return 0
                end
            end
            任务控制类:添加嘉年华任务(id)
        end
    elseif 事件 == "取消任务" and 地图1 == 1040 and 名称 == "嘉年华活动" then
        if 角色处理类:GetTaskID(玩家数据[id],"嘉年华") == 0 then
            发送数据(玩家数据[id].连接id, 7, "#y/你似乎还没有领取本任务")
        else
            角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"嘉年华"))
            发送数据(玩家数据[id].连接id, 7, "#y/你取消了嘉年华任务")
        end

    elseif 事件 == "切入战斗" and 地图1 == 1193 and 名称 == "江湖奸商" then
        战斗准备类:进入处理(id, 100026, "66", 角色处理类:GetTaskID(玩家数据[id],"嘉年华"))

    elseif 事件 == "领取奖励" and 地图1 == 1110 and 名称 == "吴老爹" then
        if 角色处理类:GetTaskID(玩家数据[id],"嘉年华") ~= 0 and 任务数据[角色处理类:GetTaskID(玩家数据[id],"嘉年华")].进程 == 2 then
            任务控制类:完成嘉年华任务1(id)
        end
       ----------------------------------------------------
elseif 事件 == "取消副本任务" and 地图1 == 1001 and 名称 == "说书先生" then
         检查高级副本(id)

   elseif 事件 == "看招" and 地图1 == 7100 and (名称 == "牛头" or 名称 == "马面") then
        if 角色处理类:GetTaskID(玩家数据[id],"地府救猴王1") ~= 0 then

           战斗准备类:进入处理(id, 888974, "66", 名称)

        else
            发送数据(玩家数据[id].连接id,20,{名称,名称, "#Y/我错了，我错了，少侠请进"})
        end
     elseif 事件 == "好的" and 地图1 == 7104 and 名称 == "地藏王" then
        if 角色处理类:GetTaskID(玩家数据[id],"地府救猴王2") ~= 0 then
          for n = 1, #队伍数据[玩家数据[id].队伍].队员数据  do

           local 闯关任务id=角色处理类:GetTaskID(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],"地府救猴王2")
            角色处理类:取消任务(玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]],闯关任务id)
            任务数据[闯关任务id]=nil
            if 玩家数据[队伍数据[玩家数据[id].队伍].队员数据[n]].队长  then
            任务控制类:开启地府救猴王3(队伍数据[玩家数据[id].队伍].队员数据[n])
            end
         end

        else
            发送数据(玩家数据[id].连接id,20,{名称,名称, "#Y/少侠所为何事"})
        end
     elseif 事件 == "打一架再说" and 地图1 == 7100 and 名称 == "转轮王" then
        if 角色处理类:GetTaskID(玩家数据[id],"地府救猴王3") ~= 0 then

           战斗准备类:进入处理(id, 888975, "66", 名称)

        else
            发送数据(玩家数据[id].连接id,20,{名称,名称, "#Y/别打扰我，烦着呢"})
        end
     -- elseif 地图1 == 7100 and (名称 == "天魂" or 名称 == "地魂" or 名称 == "命魂") then
        -- print(1111111)
    elseif 事件 == "请赐教" and 地图1 == 7100 and 名称 == "秦广王" then
        if 角色处理类:GetTaskID(玩家数据[id],"地府救猴王5") ~= 0 then

           战斗准备类:进入处理(id, 888977, "66", 名称)

        else
            发送数据(玩家数据[id].连接id,20,{名称,名称, "#Y/呼呼ZZZZZZZ"})
        end
     elseif 事件 == "被迫战斗" and 地图1 == 7100 and 名称 == "美猴王" then
        if 角色处理类:GetTaskID(玩家数据[id],"地府救猴王6") ~= 0 then

           战斗准备类:进入处理(id, 888978, "66", 名称)

        else
            发送数据(玩家数据[id].连接id,20,{名称,名称, "#Y/杀杀杀杀。。。"})
        end
        ---------------------------------------

    elseif 事件 == "切入战斗" and 地图1 == 1173 and 名称 == "野猪王" then
        战斗准备类:进入处理(id, 100027, "66", 角色处理类:GetTaskID(玩家数据[id],"嘉年华"))

    elseif 事件 == "切入战斗" and 地图1 == 1513 and 名称 == "女妖" then
        战斗准备类:进入处理(id,100028,"66",角色处理类:GetTaskID(玩家数据[id],"嘉年华"))


 --传送NPC
    elseif 事件 == "是的送我过去" and 地图1 == 1003 and 名称 == "新手接引人" then
        地图处理类:Jump(id,1001,39,223)
    elseif 地图1 == 1506 and 事件 == "是的我要去" and 名称 == "船夫" then
        if 玩家数据[id].角色.等级 >= 10 then
            地图处理类:跳转处理(id,{1092,165*20,132*20})
        else
            发送数据(玩家数据[id].连接id,20,{"驿站老板","船夫","等级不够，不敢给你传送"})
        end
    elseif 事件 == "是的，我想进去探个究竟" and 地图1 == 1506 and 名称 == "捕鱼人" then
        if 玩家数据[id].角色.等级 >= 5 then
            地图处理类:跳转处理(id,{1126,12*20,77*20,true})
        else
            发送数据(玩家数据[id].连接id,20,{"捕鱼人","捕鱼人","你的修为也太低了吧，里面的怪物可是很可怕的。"})
        end
    elseif 事件 == "是的我要去" and 地图1 == 1001 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1110,80*20,83*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1001 and 名称 == "圣山传送人" then
        地图处理类:跳转处理(id,{1205,115*20,94*20})
    elseif 事件 == "送我过去" and 地图1 == 1092 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1001,360*20,200*20})
    elseif 事件 == "是的我要去"and 地图1 == 1092 and 名称 == "船夫" then
        地图处理类:跳转处理(id,{1506,70*20,93*20})
    elseif 事件 == "是的我要去" and 地图1 == 1506 and 名称 == "老虾" then
        地图处理类:跳转处理(id,{1116,17*20,107*20,true})
    elseif 事件 == "是的" and 地图1 == 1507 and 名称 == "螃蟹精" then
        地图处理类:跳转处理(id,{1501,265*20,113*20,true})
    elseif 事件 == "是的" and 地图1 == 1508 and 名称 == "虾精" then
        地图处理类:跳转处理(id,{1501,265*20,113*20,true})
    elseif 事件 == "传送江南野外" and 地图1 == 1501 and 名称 == "建邺守卫" then
        if 玩家数据[id].角色.等级 >= 10 then
            地图处理类:跳转处理(id,{1193,149*20,65*20})
        else
            发送数据(玩家数据[id].连接id,20,{"衙役","建邺守卫","等级不足，不敢为你传送"})
        end
    elseif 事件 == "是的我要去" and 地图1 == 1092 and 名称 == "仙岛引路人" then
        地图处理类:跳转处理(id,{1207,10*20,109*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1116 and 名称 == "虾兵" then
        地图处理类:跳转处理(id,{1506,95*20,37*20,true})
     ---------------------------
     elseif 事件 == "我要祈福"  and 名称 == "神机道人" then
      if  活动数据.本日祈福[id]==nil then
          if 是否聚宝盒(id,1) then
            活动数据.本日祈福[id] = {免费次数 =6,总次数 =0}
            else
            活动数据.本日祈福[id] = {免费次数 =3,总次数 =0}
         end
      end
        发送数据(玩家数据[id].连接id,2006666,{类型=玩家数据[id].角色.新祈福.类型,次数=玩家数据[id].角色.新祈福.次数})
    elseif 事件 == "我要祈福(消耗1000仙玉)"  and 名称 == "神机道人" then
        发送数据(玩家数据[id].连接id,20048,{类型="仙玉",祈福=玩家数据[id].角色.祈福})
    elseif 事件 == "我要祈福(消耗2千万银子)"  and 名称 == "神机道人" then
        发送数据(玩家数据[id].连接id,20048,{类型="银子",祈福=玩家数据[id].角色.祈福})
    elseif 事件 == "我要祈福(消耗1亿储备)"  and 名称 == "神机道人" then
        发送数据(玩家数据[id].连接id,20048,{类型="储备",祈福=玩家数据[id].角色.祈福})
        -----------
    elseif 事件 == "传送仙缘洞天" and 地图1 == 1208 and 名称 == "申太公" then
        地图处理类:跳转处理(id,{1216,211*20,40*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1174 and 名称 == "地遁鬼" then
        地图处理类:跳转处理(id,{1091,73*20,103*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1174 and 名称 == "女娲神迹传送人" then
        地图处理类:跳转处理(id,{1201,47*20,105*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1091 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1174,193*20,155*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1091 and 名称 == "传送天将" then
        地图处理类:跳转处理(id,{1111,246*20,158*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1091 and 名称 == "西牛贺洲土地" then
        地图处理类:跳转处理(id,{1173,33*20,96*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1173 and 名称 == "大唐境外土地" then
        地图处理类:跳转处理(id,{1091,84*20,151*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1173 and 名称 == "碗子山土地" then
        地图处理类:跳转处理(id,{1228,85*20,183*20,true})
    elseif 事件 == "送我过去" and 地图1 == 1173 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1001,363*20,198*20,true})
    elseif 事件 == "送我去凌波城" and 地图1 == 1110 and 名称 == "大唐国境土地" then
        地图处理类:跳转处理(id,{1150,9*20,94*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1110 and 名称 == "普陀山接引仙女" then
        地图处理类:跳转处理(id,{1140,84*20,62*20,true})
    elseif 事件 == "送我过去" and 地图1 == 1110 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1001,280*20,240*20,true})
    elseif 事件 == "是的我要去" and 地图1 == 1111 and 名称 == "守门天兵" then
        地图处理类:跳转处理(id,{1091,24*20,119*20,true})
    -- 碗子山
    elseif 事件 == "是的我要去" and 地图1 == 1228 and 名称 == "碗子山土地" then
        地图处理类:跳转处理(id,{1139,83*20,45*20})
    -- 西梁女国
    elseif 事件 == "是的我要去" and 地图1 == 1040 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1208,128*20,36*20})
    elseif 事件 == "我去！我去！" and 地图1 == 1040 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1235,465*20,85*20})
    -- 丝绸之路
    elseif 事件 == "是的我要去" and 地图1 == 1235 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1040,25*20,110*20})
    -- 麒麟山
    elseif 事件 == "送我过去吧" and 地图1 == 1210 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1226,10*20,111*20})
    -- 蓬莱
    elseif 事件 == "送我过去吧" and 地图1 == 1207 and 名称 == "驿站老板" then
        地图处理类:跳转处理(id,{1092,34*20,61*20})
    -- 玩法
    elseif 事件 == "领取锦衣碎片任务"  then
      任务控制类:设置锦衣碎片任务(id)
      elseif 事件 == "领取强化珠任务"   then
      任务控制类:设置强化珠任务(id)
      elseif 事件 == "领取降妖伏魔任务" then
     任务控制类:领取降妖伏魔任务(id)
    elseif 事件 == "我来一观天地七元图"  and  名称 == "自在轮回镜" then
    地图处理类:跳转处理(id,{2000,113*20,72*20})
    elseif 事件 == "去无名鬼蜮矿区"   and  名称 == "矿区寻矿" then
    地图处理类:跳转处理(id,{20002,11*20,72*20})
    elseif 事件 == "去无底洞矿区"  and  名称 == "矿区寻矿" then
    地图处理类:跳转处理(id,{20003,13*20,72*20})
    elseif 事件 == "去麒麟山矿区"   and  名称 == "矿区寻矿" then
    地图处理类:跳转处理(id,{20004,14*20,72*20})

	elseif 事件 == "我来帮你抓鬼" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "钟馗" then

        任务控制类:设置抓鬼任务(id)
    elseif 事件 == "取消任务" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "钟馗" then
        if 角色处理类:GetTaskID(玩家数据[id],"抓鬼")==0 then
        发送数据(玩家数据[id].连接id,20,{"钟馗","钟馗","#Y/请先领取抓鬼任务"})
        else
        发送数据(玩家数据[id].连接id,20,{"钟馗","钟馗","#Y/你取消了抓鬼任务"})
        地图处理类:移除单位(任务数据[角色处理类:GetTaskID(玩家数据[id],"抓鬼")].地图编号,角色处理类:GetTaskID(玩家数据[id],"抓鬼"))
        角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"抓鬼"))
        任务数据[角色处理类:GetTaskID(玩家数据[id],"抓鬼")]=nil
        玩家数据[id].角色.抓鬼次数=1
        end


	elseif 事件 == "我要领取鬼王任务" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "黑无常" then

        任务控制类:设置鬼王任务(id)
    elseif 事件 == "我要取消任务" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "黑无常" then
        if 角色处理类:GetTaskID(玩家数据[id],"鬼王")==0 then
        发送数据(玩家数据[id].连接id,20,{"黑无常","黑无常","#Y/请先领取鬼王任务"})
        else
        发送数据(玩家数据[id].连接id,20,{"黑无常","黑无常","#Y/你取消了鬼王任务"})
        地图处理类:移除单位(任务数据[角色处理类:GetTaskID(玩家数据[id],"鬼王")].地图编号,角色处理类:GetTaskID(玩家数据[id],"鬼王"))
        角色处理类:取消任务(玩家数据[id],角色处理类:GetTaskID(玩家数据[id],"鬼王"))
        任务数据[角色处理类:GetTaskID(玩家数据[id],"鬼王")]=nil
        end
        elseif 事件 == "自动抓鬼" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "钟馗" then
           if 玩家数据[id].队伍 == 0 and DebugMode== false then
            发送数据(玩家数据[id].连接id, 7, "#y/自动抓鬼需要组队完成")
           return
           end
       任务控制类:自动抓鬼1(id)
 elseif 事件 == "增加自动次数" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "钟馗" then


    if 玩家数据[id].队伍 ~= 0 then
      local 找到物品 = false
      local 特赦格子 = 0
      for n = 1, 80 do
         if 玩家数据[id].角色.道具["包裹"][n] ~= nil and 找到物品 == false and 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][n]].名称 == "摸金符" then
         找到物品 = true
         特赦格子=n
             break
         end
      end
        if 找到物品 == false then
             发送数据(玩家数据[id].连接id, 20, {"钟馗","钟馗","你身上没有摸金符"})
           return
        elseif 玩家数据[id].物品[玩家数据[id].角色.道具["包裹"][特赦格子]].数量 < 1 then
             发送数据(玩家数据[id].连接id, 20, {"钟馗","钟馗","你身上摸金符数量不够"})
           return
        else
        道具处理类:RemoveItems(玩家数据[id],特赦格子,"摸金符",1)

          for i=1,#队伍数据[玩家数据[id].队伍].队员数据  do
             self.临时id=队伍数据[玩家数据[id].队伍].队员数据[i]
                if  活动数据.自动次数[self.临时id] ==nil then
                   活动数据.自动次数[self.临时id] = 0
                end

             if 活动数据.自动次数[self.临时id] < 600 then
                活动数据.自动次数[self.临时id] = 活动数据.自动次数[self.临时id] + 200
                if 活动数据.自动次数[self.临时id] >= 600  then
                活动数据.自动次数[self.临时id] = 600

                end
               发送数据(玩家数据[self.临时id].连接id, 20, {"钟馗","钟馗","#Y扣除队长#R1#Y个摸金符，所有队员自动次数增加#R/200#Y次,您当前自动次数为：#R"..活动数据.自动次数[self.临时id]})
               else
               发送数据(玩家数据[self.临时id].连接id, 7,"#Y/玩家#r/"..玩家数据[self.临时id].角色.名称.."#Y/自动次数已经到了600次,明日次数会清0,请不要在继续增加")
             end
          end
       end


    else
         发送数据(玩家数据[id].连接id, 7,"请组队领取")
        return

   end
   elseif 事件 == "自动鬼王" and (地图1 == 1122 or 地图1 == 1209 or 地图1 == 1001  or 地图1 == 1026 or 地图1 == 1537) and 名称 == "钟馗" then
       if 玩家数据[id].队伍 == 0 and DebugMode== false then
            发送数据(玩家数据[id].连接id, 7, "#y/自动鬼王需要组队完成")
           return
           end
      任务控制类:自动鬼王(id)

	elseif 事件 == "听听无妨。。。" and 地图1 == 1028 and 名称 == "店小二" then
        任务控制类:设置打图任务(id)

    elseif 事件 == "给予道具" and 地图1 == 1028 and 名称 == "店小二" then
        发送数据(玩家数据[id].连接id, 3011, {名称="店小二",id = 角色处理类:GetTaskID(玩家数据[id],"神器任务"),道具 = 道具处理类:索要道具2(id, "包裹")})
	elseif 事件 == "我要住店休息" and 地图1 == 1028 and 名称 == "酒店老板" then
		if 银子检查(id,500) == false then
			发送数据(玩家数据[id].连接id, 7, "银子不足500两")
			return 0
		else
			角色处理类:扣除银子(玩家数据[id], 500, 2)
			角色处理类:刷新战斗属性(玩家数据[id])
			发送数据(玩家数据[id].连接id,20,{"酒店老板","酒店老板","你的气血魔法已经恢复,欢迎下次再来"})
		end
	-- 门派传送
	elseif 事件 == "是的我要去" and ((地图1 == 1135 and 名称 == "接引道童")  or (地图1 == 1142 and 名称 == "接引女使")  or (地图1 == 1198 and 名称 == "传送护卫") or
		(地图1 == 1002 and 名称 == "接引僧") or (地图1 == 1513 and 名称 == "引路小妖") or (地图1 == 1139 and 名称 == "接引小妖") or
		(地图1 == 1131 and 名称 == "传送小妖") or (地图1 == 1140 and 名称 == "接引仙女") or (地图1 == 1111 and 名称 == "接引仙女") or (地图1 == 1150 and 名称 == "传送天将") or
		(地图1 == 1116 and 名称 == "传送蟹将") or (地图1 == 1146 and 名称 == "接引道童") or (地图1 == 1251 and 名称 == "引路灵猴") or (地图1 == 1249 and 名称 == "引路孤魂") or (地图1 == 1250 and 名称 == "哒哒") or (地图1 == 1138 and 名称 == "引路族民") or (地图1 == 1122 and 名称 == "地遁鬼") or (地图1 == 1198 and 名称 == "传送护卫") or
		(地图1 == 1512 and 名称 == "传送牛妖")) then
       地图处理类:跳转处理(id,{1001,473*20,250*20,true})

    elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "五方鬼帝" then
             发送数据(玩家数据[id].连接id,20,{"阎罗王","五方鬼帝","五方鬼帝，分治地府五关，下辖五山，悟人间善恶而生心魔。有道是：五方鬼帝，奈何断途。阴阳有分，善恶晦生。"})
             return 0
    elseif 事件 == "进入战斗(轮回境一层)" and 地图1 ==2000  and 名称 == "五方鬼帝" then
            --角色处理类:轮回境容错(玩家数据[id])
            if 玩家数据[id].角色.等级 < 145 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到145级后才可进行轮回境挑战")
                return 0
             elseif 玩家数据[id].角色.轮回境 >= 1  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
              else
                    战斗准备类:进入处理(id, 2000101, "66", 1)
             end

 elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "自在天魔" then
             发送数据(玩家数据[id].连接id,20,{"世界BOSS","自在天魔","劫起无明，魔由心生；佛在菩提树下时，镇守关底之“自在天魔”曾现身妨其成道，但被佛降伏。然而轮回境出，自在天魔亦卷土重来；如欲将之击败，其中艰险，难以尽述，留待诸位英雄豪杰自行体验吧。"})
             return 0
    elseif 事件 == "进入战斗(轮回境七层)" and 地图1 ==2000  and 名称 == "自在天魔" then
            if 玩家数据[id].角色.等级 < 175 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到175级后才可进行轮回境挑战")
                return 0
            elseif 玩家数据[id].角色.轮回境 >= 7  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
             elseif 玩家数据[id].角色.轮回境 < 6  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败轮回境六层才能挑战")
                return 0
              else
                    战斗准备类:进入处理(id, 2000107, "66", 1)
             end


    elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "九灵元圣" then
             发送数据(玩家数据[id].连接id,20,{"大大王","九灵元圣","九灵元圣，本为太乙座下灵兽；因曾往人间受劫而生心魔。有道是：太乙座下，九头为灵。狮生异种，玄法巨吞。"})
             return 0
    elseif 事件 == "进入战斗(轮回境二层)" and 地图1 ==2000  and 名称 == "九灵元圣" then
             if 玩家数据[id].角色.等级 < 145 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到145级后才可进行轮回境挑战")
                return 0
            elseif 玩家数据[id].角色.轮回境 >= 2  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
            elseif 玩家数据[id].角色.轮回境 < 1  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败轮回境一层才能挑战")
                return 0
            else
                    战斗准备类:进入处理(id, 2000102, "66", 1)
             end
    elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "华岳圣母" then
             发送数据(玩家数据[id].连接id,20,{"进阶曼珠沙华","华岳圣母","华岳圣母，其事流传甚广，人尽皆知；幸有沉香劈山救母而得解脱，却也因此难而生怨恨，渐成心魔。有道是：华岳圣母，混沌莲灯。沉香唯孝，裂山崩峦。"})
             return 0
    elseif 事件 == "进入战斗(轮回境三层)" and 地图1 ==2000  and 名称 == "华岳圣母" then
             if 玩家数据[id].角色.等级 < 145 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到145级后才可进行轮回境挑战")
                return 0
            elseif 玩家数据[id].角色.轮回境 >= 3  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
            elseif 玩家数据[id].角色.轮回境 < 2  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败轮回境二层才能挑战")
                return 0
            else
                    战斗准备类:进入处理(id, 2000103, "66", 1)
             end
    elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "南斗北斗" then
             发送数据(玩家数据[id].连接id,20,{"进阶天兵","南斗北斗","南斗北斗，本为天上星君，却观红尘喜乐而有所悲喜，自此生出心魔。有道是：北斗注死，南斗掌生。天下如棋，明灭星辰。"})
             return 0
    elseif 事件 == "进入战斗(轮回境四层)" and 地图1 ==2000  and 名称 == "南斗北斗" then
             if 玩家数据[id].角色.等级 < 155 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到155级后才可进行轮回境挑战")
                return 0
            elseif 玩家数据[id].角色.轮回境 >= 4  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
            elseif 玩家数据[id].角色.轮回境 < 3  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败轮回境三层才能挑战")
                return 0
            else
                    战斗准备类:进入处理(id, 2000104, "66", 1)
             end
    elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "天龙八部" then
             发送数据(玩家数据[id].连接id,20,{"进阶金身罗汉","天龙八部","八部天龙，悟佛法而净罪孽，自此成护法神通；却因过往之罪而难断心魔。有道是：天龙翻覆，心魔孽生。夜叉修罗，无间浮沉。"})
             return 0
    elseif 事件 == "进入战斗(轮回境五层)" and 地图1 ==2000  and 名称 == "天龙八部" then
             if 玩家数据[id].角色.等级 < 155 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到155级后才可进行轮回境挑战")
                return 0
            elseif 玩家数据[id].角色.轮回境 >= 5  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
             --elseif 玩家数据[id].角色.数据.称谓.当前 =="VIP玩家" then  战斗准备类:进入处理(id, 2000105, "66", 1)
            elseif 玩家数据[id].角色.轮回境 < 4  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败轮回境四层才能挑战")
                return 0
            else
                 --发送数据(玩家数据[id].连接id, 7, "#y/当前称谓需佩戴VIP玩家才可开始挑战")
                   战斗准备类:进入处理(id, 2000105, "66", 1)
             end
    elseif 事件 == "什么是轮回境" and 地图1 == 2000  and 名称 == "无上天尊" then
             发送数据(玩家数据[id].连接id,20,{"进阶风伯","无上天尊","无上之尊，无上之能；然而未悟道之时，又孰能无过，是以自有心魔。有道是：天尊无上，德音无量。欲成道法，斩却心尘。"})
             return 0
    elseif 事件 == "进入战斗(轮回境六层)" and 地图1 ==2000  and 名称 == "无上天尊" then
             if 玩家数据[id].角色.等级 < 155 then
                发送数据(玩家数据[id].连接id, 7, "#y/等级达到155级后才可进行轮回境挑战")
                return 0
            elseif 玩家数据[id].角色.轮回境 >= 6  then
                发送数据(玩家数据[id].连接id, 7, "#y/你已经挑战过本层了")
                return 0
            elseif 玩家数据[id].角色.轮回境 < 5  then
                发送数据(玩家数据[id].连接id, 7, "#y/需要打败轮回境五层才能挑战")
                return 0
            else
                    战斗准备类:进入处理(id, 2000106, "66", 1)
            end
end
end


function 事件解析:取师门地图(师门)
	local 地图
	if 师门 == "化生寺" then
		地图 = 1002
	elseif 师门 == "方寸山" then
		地图 = 1135
	elseif 师门 == "女儿村" then
		地图 = 1142
	elseif 师门 == "神木林" then
		地图 = 1138
	elseif 师门 == "大唐官府" then
		地图 = 1198
	elseif 师门 == "阴曹地府" then
		地图 = 1122
	elseif 师门 == "盘丝洞" then
		地图 = 1513
	elseif 师门 == "无底洞" then
		地图 = 1139
	elseif 师门 == "魔王寨" then
		地图 = 1512
	elseif 师门 == "狮驼岭" then
		地图 = 1131
	elseif 师门 == "天宫" then
		地图 = 1111
	elseif 师门 == "普陀山" then
		地图 = 1140
	elseif 师门 == "凌波城" then
		地图 = 1150
	elseif 师门 == "五庄观" then
		地图 = 1146
	elseif 师门 == "龙宫" then
		地图 = 1116
    elseif 师门 == "花果山" then
        地图 = 1251
    elseif 师门 == "天机城" then
        地图 = 1257
    elseif 师门 == "女魃墓" then
        地图 = 1252
	end
	return 地图
end


function 事件解析:取师父地图(ID)
	local 名称 =""
    if ID == 1043 then
     名称 = "空度禅师"
	elseif ID == 1054 then
	 名称 = "程咬金"
	elseif ID == 1117 then
	 名称 = "东海龙王"
	elseif ID == 1137 then
	 名称 = "菩提祖师"
	elseif ID == 1124 then
	 名称 = "地藏王"
	elseif ID == 1112 then
	 名称 = "李靖"
	elseif ID == 1145 then
	 名称 = "牛魔王"
	elseif ID == 1141 then
	 名称 = "观音姐姐"
	elseif ID == 1147 then
	 名称 = "镇元子"
	elseif ID == 1134 then
	 名称 = "大大王"
	elseif ID == 1144 then
	 名称 = "白晶晶"
	elseif ID == 1150 then
	 名称 = "二郎神"
	elseif ID == 1154 then
	 名称 = "巫奎虎"
	elseif ID == 1156 then
	 名称 = "地涌夫人"
	elseif ID == 1143 then
	 名称 = "孙婆婆"
    elseif ID == 1251 then
     名称 = "齐天大圣"
    elseif ID == 1250 then
     名称 = "天女魃"
    elseif ID == 1217 then
     名称 = "小夫子"
	end
	return 名称
end

return 事件解析